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SECTION 1: INTRODUCTION 


PURPOSE OF THE COMPILER 


The Operating System/360 PL/I (F) Com- 
piler analyzes and processes source pro- 
grams written in PL/I f and translates them 
into object programs in load module form 
suitable for input to the Linkage Editor. 
When errors are detected in the source 
program, appropriate diagnostic messages 
are produced. The compiler functions with- 
in Operating System/360 and may be used on 
machines where at least 45,056 (44K) bytes 
of core storage are available for the 
compilation (exclusive of storage require- 
ments for the Operating System) . 


THE COM P ILER AND OPERATING SYSTEM/360 


The PL/I (F) compiler is a processing 
program of Operating System/360. The com- 
piler consists of a number of phases under 
the supervision of compiler control rou- 
tines. The compiler communicates with the 
control program of the Operating System, 
for input/output and other services, 
through the control routines. 

A compilation is introduced as a job 
step under the control of the Operating 
System, via the JOB statement, the execute 
(EXEC) statement, and the data definition 
(DD) statements of the Job Control Lan- 
guage, for the input/output data sets. 
Cataloged procedures are provided to keep 
these statements to a minimum. A discus- 
sion of the introduction of a compilation 
as a job step, and of the available catal- 
oged procedures, is given in the publica- 
tion IBM System/360 Operating System, PL/I 
(F) Programmers Guide , Form C28-6594. 

The source program to be compiled 
appears as input to the compiler on the 
SYSIN data set. The compiler uses SYSUT1 
(required if the main storage is insuffi- 
cient to contain the program) and SYSUT3 
(required if the 48-character set or the 
compile-time processor is used) as work 
data sets. The SYSPUNCH, SYSPRINT, and 
SYSLIN data sets are used, depending on the 
options specified by the source programmer, 
to contain the output from the compiler. 

The overall data flow associated with a 
compilation, and the data sets used in the 
compilation, are illustrated in Figure 1. 


A compilation is initiated by loading 
the compiler control routines from the Link 
Library- The compiler control routines 
then carry out their own initialization, 
including loading those compiler control 
routines which remain in storage throughout 
the compilation. These routines perform 
the following functions: 

1. Act as the interface between the com- 
piler phase and the Operating System, 
controlling all input/output, storage 
allocation, program interruptions, 
storage dumping, etc. 

2. Supervise the loading of compiler 
phases in accordance with source pro- 
gram options and information obtained 
from the source program by the compil- 
er phases . 

3. Supervise all workspace used by the 
compiler for information concerning 
the source program. This includes any 
spilling from main storage to backing 
storage in order to accommodate large 
source programs, the conversion of 
symbolic references to absolute 
addresses, and the conversion from 
absolute addresses to symbolic ref- 
erences- 

4. Provide a number of routines to assist 
in compiler debugging. 

The compiler options specified are 
interpreted and the appropriate action 
taken. The environmental options, such as 
storage size and device type, are used to 
calculate the text and dictionary block 
size and the "spill" point (i.e. the point 
at which the main storage available is 
insufficient to contain the dictionary and 
text) . 

To determine the block size a table 
contained in Phase AB is used. The storage 
size is used as the argument to search the 
table. When the correct entry is found, 
the text block size and the dictionary 
block size values are extracted and used 
for the compilation. 

The options are instructions to the 
compiler. Some of these require a phase to 
be loaded that would not otherwise be 
loaded. When an option of this type is 
found, a request for the phase required is 
inserted into the status byte in the phase 
directory. Other options are in the form 
of instructions to a phase that is always 
loaded. These instructions are also placed 
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in coded form in a control code word in the 
communications region of the dictionary 
(see "Control Code Word — CCCODE" in 
Appendix B). 


COMPILER ORGANIZATION 


information as the addresses of the 
heads of chains, the symbolic start of 
text, etc- The remainder of the dic- 
tionary contains all information 
relating to identifiers appearing in 
the program, temporary storage areas 
required, etc. For the compiler pro- 
per, the format of all dictionary 
entries will be found in Appendix C. 


The PL/ I (F) Compiler comprises a number 
of logical phases, each of which consists 
of several physical phases. 

The compiler phases and their corres- 
ponding functions are indicated in Figure 
2, and the organization of the compiler is 
shown in Figure 3. 

Control is passed between the phases of 
the compiler via the control routines. 
After each phase has been executed, it 
branches to the control phase, which sel- 
ects from its load list the next phase to 
be executed. 

Communication between the phases is 
implemented by the following: 

1. The text string. The text string at 
the start of the compilation is input 
text. This is converted by the 
compile- time processor, if necessary, 
into a string which is PL/I source 
text. The characters in this string 
are translated into a code internal to 
the compiler. The phases of the com- 
piler gradually process the text until 
the final form is the object program, 
consisting of a string of machine 
instructions. For the compiler pro- 
per, the text code bytes used, and 
formats of statements at different 
stages of the compilation, will be 
found in Appendix D. 

The text is broken down into a number 
of blocks, depending upon the size of 
the machine. Each block has a symbol- 
ic name which is independent of the 
physical location of the block in 
storage. Thus, the text blocks may be 
moved around in core storage under the 
supervision of the compiler control 
routines, and spilled on to backing 
storage if insufficient main storage 
is available. 

2. The dictionary. The dictionary con- 
sists of a number of blocks, each with 
a symbolic name. Part of the first 
dictionary block is used as a communi- 
cations region (see Appendix F) 
between phases, and for this reason 
the first block is never spilled, even 
when the source program to be compiled 
exceeds available storage. The com- 
munications region contains such 
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LOGICAL PHASES 


The logical phases of the compiler and 
their main functions are summarized in the 
following paragraphs. 


C ompile-time Processor Phase 


The Compile-time Processor Phase reads 
input text, executes any compile-time 
statements contained in it, and modifies 
text as directed, producing modified text 
for further compiler processing. 


Read- In Phase 


The Read-In Phase is the first logical 
phase, and is responsible for any macro 
source program modifications, source pro- 
gram syntax checking, and the removal, from 
the text string, of all superfluous charac- 
ters, such as comments and non-significant 
blanks. 


Dictionary Phase 


The Dictionary Phase removes all BCD 
identifiers and attribute declarations from 
the source string, and replaces them by 
symbolic references to dictionary entries. 
The dictionary entries contain all the 
consistent declared attributes, and all the 
attributes specified in the language in 
default of source program specifications. 
Error messages are generated for all incon- 
sistent attributes. 


Pretranslator Phase 


The Pretranslator Phase processes those 
features of the language that are more 
easily processed in their original PL/I 
form, than when the original syntactic form 
has been lost in later phases. The Pre- 
translator carries out these modifications 
which include the rearranging of the order 
of certain I/O statements, the creation of 
temporary variables for procedure arguments 
which are expressions, the conversion of 
array and structure assignments to a series 
of * DO' loops surrounding scalar assign- 
ments, and the removal of iSUB expressions. 


Translator Phase 


The Translator Phase converts the origi- 
nal PL/I syntactic form to an internal 
syntactic form, referred to as "triples." 


Triples consist of the original source 
program operators and operands, but rearr- 
anged so that the operations specified in 
the source string may be carried out in 
their proper order. 


Aggregates Phase 


The Aggregates Phase carries out all 
structure and array mapping, so that ele- 
ments are aligned on the correct storage 
boundaries. When it is not possible to 
carry out the mapping at compilation time, 
such as when the aggregates contain string 
lengths or array bounds which are specified 
by expressions, object code is produced to 
do it at object time. This phase also 
checks that items DEFINED on arrays and 
structures can be mapped consistently. 


Pseudo-Code Phase 


The Pseudo-Code Phase converts the tri- 
ples to a form closely resembling machine 
instructions, in which registers are rep- 
resented symbolically, and storage loca- 
tions are represented by dictionary ref- 
erences with offsets. The final pseudo- 
code version of the text also contains a 
number of special pseudo- code items for the 
guidance of later phases. 


Storage Allocation Phase 


The Storage Allocation Phase searches 
the dictionary for all entries requiring 
storage, and allocates offsets to each 
item, either within its AUTOMATIC block, or 
within the STATIC storage area. Code is 
compiled to set up dope vectors and 
pointers at object time, for allocations of 
controlled variables and temporaries, the 
storage for which must be obtained during 
the execution of the object program. Pro- 
logue code is generated for each block of 
the object program. 
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Register Allocation Phase 


The Register Allocation Phase allocates 
physical registers to the symbolic reg- 
isters which have been requested by earlier 
phases, and also ensures that all the 
storage location offsets allocated in pre- 
vious phases can be addressed by the inser- 
tion of additional instructions, where nec- 
essary. 


Final Assembly Phase 


The Final Assembly Phase completes the 
translation to machine code instructions, 
by calculating branch destination addresses 
inserted symbolically by earlier phases. 
Loader text is then produced for the 
machine instructions, constants, INITIAL 
values in STATIC storage, and all the 


constant data required for block initiali- 
zation. ESD, RLD, and INCLUDE cards are 
produced to enable the object program to be 
edited by the Operating System/360 Linkage 
Editor. The Final Assembly Phase also 
produces a listing of the object code 
produced. 


Error Editor Phase 


The Error Editor Phase is entered at the 
end of every compilation. The dictionary 
is examined to determine whether there are 
any diagnostic messages to be printed out. 
If there are none, the compilation is 
terminated by the compiler control. If 
there are diagnostic messages to be printed 
out, the error dictionary entries are proc- 
essed and the messages are printed. The 
texts of all the diagnostic messages are 
held in modules XG through YX. 
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SECTION 2: COMPILER PHASES 


COMPILER CONTROL AND 48-CHARACTER SET 
PREPROCESSOR ’ * 


COMPILER CONTROL 


When the PL/I (F) Compiler is invoked by 
the calling program (e.g., the Job 
Scheduler) of the Operating System, the 
Compiler Control module IEMAA is loaded and 
entered. IEMAA is resident during the 
whole compilation; it controls the follow- 
ing functions; 

Initialization 

Character translation 

Text and dictionary block control 

Scratch storage control 

Phase loading 

Diagnostic message control 
Input/output control 
Program check handling 
Job termination 


Initialization 


Initialization is achieved by module AA 
linking to module AB. Module AB performs 
the detailed initialization of the compil- 
er, and provides the following functions: 

Opens SYSIN and SYSPRINT data sets 

Constructs a phase directory (for details 
refer to Appendix B) 

Sets up a communications region in the 
dictionary (for details refer to Appendix 
F) 

Scans option list 

Obtains space for text blocks, dictionary 
blocks, and scratch storage 

Opens SYSUT3 as necessary 

Prints a list of options used in current 
compilation 


On return from module AB, the first compil- 
er phase is loaded and entered. 


Characte r Translation Tables 


The character translation tables (see 
Appendix D.l) provide the facility for 
converting external code to a compiler 
internal code, and for converting the 
internal code back to the external form. 
These tables thus prevent the compiler from 
becoming character code dependent, and ena- 
ble the scanning routines to process the 
input source statements more efficiently. 
Note that the contents of these tables are 
different during compile-time processing 
from the contents during compilation pro- 
per. 


Communications Region 


The communications region is an area 
specified by the control routines, and used 
to communicate necessary information 
between the various phases of the compiler. 
The communications region is resident in 
the first dictionary block throughout the 
compilation. 

Entry to the various compiler control 
routines is via a transfer vector. Details 
of the transfer vector and the organization 
of the communications region appear in 
Appendix F. (Note: The use of the communi- 
cations region during compile-time process- 
ing is described in Appendix J.) 


Text and Dictionary Block Control 


Block control is achieved by a system of 
text and dictionary references. If the 
program in storage becomes too large, 
blocks are placed on an external file, 
SYSUTl . The block control routines contain 
the input/output control. 


Scratch Storage Control 


Scratch storage of 4K bytes is guaran- 
teed to all phases. The control routines 
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split the 4K-block into discrete sections, 
and allocates them as required. The sec- 
tions are in multiples of 512 bytes. 


S torage Requirements 


The (F) Compiler requires main storage 
for the following purposes : 


Compiler processing phases 


Print buffers 


Compiler control routines 
Dictionary area 
Text area 

Input/Output buffers 
Input/Output routines (BSA.M) 

The main storage required by each phase 
of the compiler need be contiguous only for 
each control section. 

During the read-in phases a minimum of 
two dictionary blocks and two text blocks 
are available in storage simultaneously. 

During the rest -of the compilation four 
dictionary blocks and four text blocks are 
available in storage simultaneously. 

The dictionary and text block size is 
chosen according to the amount of main 
storage available to the compiler. The 
SIZE option, interpreted at invocation 
time, provides the value used to determine 
the block size. A table contained in Phase 
AB is searched# using the SIZE option as an 
argument. When the correct entry is found, 
the block size is extracted. 

Appendix E shows details of storage 
allocation. 


Phase Loading 


Phase loading routines include phase 
marking (where phases are indicated as 
wanted or not wanted)# phase loading, and 
phase deleting facilities. The phase 
directory is constructed for this purpose. 


Phase Director y 


Because of the number of phases in the 
compiler, the phase directory is split into 
halves. The first half is constructed 
during the initialization of the compiler; 
also a list of names of the phases in the 
second half is kept in Phase AA. This list 
is used to pass status indications (i.e., 
whether phases are wanted or not wanted) 
from the first half to the second half. 
Phase JZ uses the list to construct a new 
directory for the second half. 

The phase directory is constructed by 
use of the BLDL macro and a build list. 
The format of the build list is fully 
described in the publication IBM System/360 
Operating System, Control Program Services , 
Form C28-6541. For details of the phase 
directory see Appendix B. 


Diagnostic Message Control 


Diagnostic message control routines 
cause diagnostic messages to be placed in a 
chain in the dictionary. 


Input/Output Control 


The I/O control routines involved act as 
an interface between the compiler phases, 
and SYSIN, SYSPRINT, SYSLIN, and sYSPUNCH 
data sets. (see Figure 4.) 


Program Check Handling 


The compiler handles all program checks. 
Control can be passed to a phase to enable 
it to deal with the check. 


Job Termination 


The compiler completion code is picked 
up and control is returned to the calling 
program. 

The compiler completion codes are as 
follows: 

Code Meaning 

0 No diagnostic messages issued; com- 

pilation completed with no errors; 
successful execution expected 
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Figure 4. Input/Output Usage Table 


4 Warning messages issued; program 

compiled; successful execution 
expected 

8 Error messages issued; program com- 

piled but with errors; execution 
may fail 

12 Severe error messages issued; com- 

pilation may be completed but with 
errors, successful execution impro- 
bable. If a severe error occurs 
during compile- time processing, a 
listing of the PL/I text on SYSUT3 
will be printed if the SOURCE 
option is specified. The compila- 
tion will be terminated. 

16 Terminal error messages issued; 

compilation terminated abnormally 


COMPILER CONTROL MODULES 


In addition to modules AA and AB, furth- 
er modules, AC, AD, AE, AF, AG, AM, and JZ 
are used in compiler control. The func- 
tions of these modules are briefly des- 
cribed in the following paragraphs. 


Module AC 


Module AC controls reading and writing 
operations on SYSUT3, the intermediate 
file. It is loaded only if the CHAR48 or 
MACRO option is specified, and is deleted 
at the end of the Read-In Phase. 


Module AD 


Module AD performs inter-phase dumping 
Using TESTRAN. 

All currently active storage is dumped 
at the end of the phases stated or implied 
in the DUMP option. The required output is 
selected at TESTRAN edit time. 


The DUMP Optio n 


The DUMP option specifies where dumping 
of main storage is to take place. It may 
be specified in one of the following ways: 
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1 . 


DUMP, means a dynamic dump is required 
(the dump routine will be called by a 
running phase) 

2. DUMP= (AREA) ” means a dump of storage 
only when a program check occurs 

3. DUMP= (AREA, x if x 2 , (x 3 ,x n ) , . . . ) means a 
dump of storage after the named phase 

x lt x 2(f etc., are 2-byte phase names 

AREA is any combination of TDPSC: 

T text blocks 
D dictionary block 
P phases loaded 
S scratch storage 
C control phase 

The general syntax is: 

DUMP(= (AREA, {x | (y,z) }, )] 

A single phase name indicates dumping of 
storage after this single phase. A pair of 
phase names indicates a continuous group of 
phases after which dumping of storage is to 
occur. 

The dump will appear on SYSPRINT, 
inserted into the normal compiler output. 

Use of the DUMP option is not restricted 
by the amount of storage available to the 
compiler. 


Module AE 


Module AE is the finalization of the 
Read- In Phase control. 


Module AF 


Module AF is a control section consist- 
ing of a table containing the compiler 
options which may be used during a compila- 
tion. The table is constructed at system 
generation time. The control section is 
brought into storage by the initialization 
Module AB at compilation time. A descrip- 
tion of the use of Module AF is given in 
Appendix G. 


Module AG 


Module AG closes SYSUT3 for output, and 
re-opens it for input. 


The closing and opening operations are 
performed in the following order: 

CLOSE 

alter macro- type in data control block 
(DCB) 

OPEN (INPUT) 

switch routine ZURD to point at SYSUT3 
DCB 


Module AM 


Module AM marks phases as either wanted 
or not wanted, depending upon the compiler 
invocation options. Phases that are always 
loaded are marked wanted. 

AM is the first compiler phase loaded 
after compiler initialization. It tests 
the relevant bits in CCCODE and marks the 
phases accordingly. 


Module JZ 


Module JZ builds the second half phase 
directory. A build list is constructed 
from the second half list held in Module 
AA; a BLDL is performed on this list. The 
phase directory is then reconstructed in 
Module AA for the second half of the 
compiler. 


48-CHARACTER SET PREPROCESSOR 


Phase BX is the 48 -character set prepro- 
cessor. It is loaded on programmer option 
and receives, as input, source text in the 
48-character syntax. 

The preprocessor scans the input text 
for occurrences of characters peculiar to 
the 48-character set, and converts these to 
the corresponding 60-character symbols. It 
then puts out the adjusted text onto back- 
ing storage ready for Phase Cl, the first 
pass of the Read-In Phase. 

The text is read in record by record. 
It is then scanned for alphabetic charac- 
ters which may be the initial letters of 
operator keywords, for periods, and for 
commas. Items within comments or character 
strings are ignored. 

When a possible initial letter is disco- 
vered, tests are made to determine whether 
or not one of the reserved operator key- 
words has been found. If one has been 
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found, it is replaced by its 60-character 
set equivalent. Similarly, appearances of 
two periods are replaced by a colon, and a 
comma-period pair is replaced by a semi- 
colon if the comma-period pair is not 
immediately followed by a numeric 
character. 

Allowance is made for the possibility 
that a concatenation of characters which is 
meaningful in the 48-character set may be 
split between two records. 

Before the text is processed a copy of 
the original input is preserved. The out- 
put from the preprocessor is the trans- 
formed text, record by record, followed by 
the original text. The Read-In Phase proc- 
esses transformed text but prints out the 
original. 

The preprocessor uses compiler Control 
routine ZURD to obtain input, and routine 
ZUBW to place its output onto backing 
storage. 

Note ; If the MACRO option is specified, all 
the processing described above is 
done by the compile- time processor, 
and phase Bx is bypassed. 


C OMPILE-TIME PROCESSOR PHASE 


The compile-time processor consists of 
six physical phases. Each of these phases 
is executed once, unless an INCLUDE data 
set is encountered that contains compile- 
time statements. In this case certain 
phases will be re-executed. 

The compile-time processor moves source 
text that does not contain compile-time 
statements directly into text blocks. 
During this process invalid characters are 
replaced by blanks, and line numbers are 
encoded and inserted into the text. 
Compile-time statements are decoded and 
translated into an internal form and then 
placed directly into text blocks. An entry 
is made into the dictionary for each 
compile-time variable, procedure, label, or 
INCLUDE identifier. 

A second pass is then taken over these 
text blocks, during which compile-time 
statements are executed and the PL/I source 
program text is scanned and replacements 
are made. The output from this pass is a 
PL/I source program contained on SYSUT3. 

If during the second pass, an INCLUDE 
data set is processed that contains compile 
time statements, the entire procedure indi- 
cated above is executed recursively to 
process this text. 


Text and dictionary formats used by the 
compile-time processor are contained in 
Appendix J. 


Line Numbering 


As the input is being processed a unique 
line number is assigned to every logical 
record processed. If a listing of the 
input is requested, these line numbers are 
written out beside the appropriate line. 
The line numbers are also encoded and 
inserted into the text so that diagnostics 
can be keyed to them- These line numbers 
are also output on SYSUT3, to aid the user 
in determining from which input line a 
particular line of output came. 


Phase AS 


This phase, consisting of one physical 
module, is loaded if the option MACRO is 
specified. It is resident throughout 
compile-time processing until the cleanup 
phase (BW) is invoked. 

This phase controls the loading of the 
subsequent compile-time processor phases. 
The initialization phase (AV) is loaded 
only once. The two processing phases (BC 
and BG) are loaded and executed once unless 
an INCLUDE data set is processed that 
contains compile-time statements. In this 
case phase AS reloads the processing phases 
to process this data set- 

in addition, phase AS contains a set of 
service routines used by both processing 
phases. Access to these routines is via a 
transfer vector located at the beginning of 
phase AS. 


Phase AV 


This phase consists of one physical 
block. Its purpose is to initialize cer- 
tain cells in the communications region for 
the compile-time processor phases. 


Phase BC 


Phase BC consists of three physical 
modules, BC, BE, and BF- Module BE con- 
tains the control routine. 
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Phase BC accepts input text, moving it 
into text blocks until a compile-time 
statement is found.. (For a description of 
the use and layout of text and dictionary 
blocks, see Appendix J.) When a compile- 
time statement is encountered, it is 
encoded into a set of interpretive instruc- 
tions and, except for compile-time proce- 
dures, added to the current text block. 
Compile-time procedures are similarly 
encoded, but are placed in separate text 
blocks. 

As compile-time statements are encoded, 
all non*keyword identifiers encountered are 
entered into the dictionary, together with 
any attributes that are known. Entries are 
also made in the dictionary for constants 
and iterative DOS. 

During phase BC, invalid characters 
occurring outside of strings and comments 
cause a diagnostic to be printed. They are 
converted to blanks. Invalid characters 
can thus be used for markers of various 
sorts in text blocks. Diagnostics are 
given for syntax errors in compile-time 
statements. Line numbers are encoded and 
inserted into the text for the use of the 
phase BG scan. All input characters are 
converted to their EBCDIC representation 
before they are processed. 


P hase BG 


Phase BG consists of two physical 
modules, BG and BI. The control routine is 
contained in module BG. 

In general, the input to phase BG is the 
set of chained text blocks and dictionary 
blocks created by phase BC. The phase BG 
execution is essentially that of the 
compile-time processor described in the 
external specifications. That is, its 
basic action is to move through text blocks 
looking for instances of compile-time vari- 
ables or compile-time statements, which it 
uses to produce the output text. As line 
numbers are encountered in the text, they 
are placed into a location containing the 
current line number. This is used both for 
phase BG diagnostics and by the output 
editor. 

If a compile-time variable or procedure 
reference is found, the scan cursor is 
positioned to scan its value. When the 
scan of the value is completed, the cursor 
is properly positioned back into the text. 
If a compile-time variable or procedure 
reference is found in this value scan, the 
process repeats itself. Such nesting can 
occur to a depth of 100. 


If the scan encounters an encoded 
compile-time statement (built by phase BC), 
control is passed to an interpreter. This 
interpreter executes the statement — pos- 
sibly repositioning the scan cursor — and 
returns to the scan. 

The output of this phase is a PL/l 
source program contained on SYSUT3. 


Phase BM 


Phase BM examines the heads of the error 
chains in the first dictionary block, and 
programmer options which specify the sever- 
ity level of messages required. If there 
are no messages, it passes control to the 
clean up phase (BW), If diagnostic messa- 
ges are required, the phase loads BN to 
process them after scanning the chains and 
indicating where the text is to be found. 


Module BN 


The text of all compile-time processor 
error messages is kept in modules BP 
through BV. The messages are ordered by 
severity, within these modules. BM will 
have listed those modules which contain 
messages required for a particular pass. 
Module BN loads and releases these modules, 
one at a time and extracts the required 
messages. When all compile-time error mes- 
sages have been processed, module BN 
returns control to BM. 


Phase BW 


The purpose of this phase to set all 
tables and communications regions cells to 
the values required by the compiler proper. 
In addition it will release all text and 
dictionary blocks used by the compile-time 
processor phases and then pass control to 
the next required phase of the compiler. 

If a severe or terminal diagnostic has 
been produced by the Compile-time processor 
a listing of the contents of SYSUT3 will be 
printed (provided that the SOURCE option 
applies) , and compilation will be bypassed. 


THE READ-IN LOGICAL PHASE 


The Read-In Phase is implemented as five 
discrete physical phases, each of which 
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processes a particular group of statement 
types. The phase obtains the input text in 
the externally coded form by a call to the 
compiler read routine, and converts it to 
internal code by means of a translate table 
provided by compiler control. 


The source text is scanned for syntacti- 
cal errors. During this time an output 
string is built up, which consists essen- 
tially of the input text with comments and 
insignificant blanks removed. The source 
text is scanned and statements are num- 
oered, identified, and diagnosed. Any 
required substitutions are made, statement 
labels are inserted in the dictionary, and 
chains are formed (for example, BEGIN, 
PROCEDURE chains) . If the SOURCE option 
applies, source statements, with their num- 
bers, are printed out immediately after 
they have been read. 


When the input text provides an end-of- 
file indication, processing is terminated. 
In ERROR situations this may not occur when 
a valid external procedure has been 
completely processed. By keeping a count 
of PROCEDURE, BEGIN, DO, END, ON, and IF 
statements, the phase can detect when the 
logical end-of-program indication is found. 
If there are more records after the end of 
the external procedure, they are ignored. 


If an ,end-of-file indication is encoun- 
tered before the logical end of the pro- 
gram, diagnostic messages are issued and 
suitable END statements are inserted to 
allow compilation to continue. 

The output of the Read-In Phase provides 
a syntactically correct output string; a 
table of entry and statement labels; chains 
of coded diagnostic messages; a set of 
switches specifying compilation content 
details; a set of chains linking statements 
of a particular type, to facilitate subse- 
quent scanning; and optionally, a listing 
of the source text. 


Statement Numbering 


All statements are given a sequential 
number. This includes each compound state- 
ment, each statement contained in a com- 
pound statement, block and group delimiting 
statements, and null statements. The ELSE 
clause is not regarded as a statement for 
numbering purposes. The numbering of the 
statement is indicated on the source list- 
ing. Diagnostic messages also refer to 
these statement numbers. 


Statement and Entry Labels 


Statement and entry labels appearing in 
the source text are removed and added to a 
label table, which is built up in the 
region intended for the dictionary. This 
region may be extended by further blocks as 
required. The label table entry is an 
embryo dictionary entry, with blank regions 
to be filled later by the Dictionary Phase 
EG. 

When a label declaration is found, an 
entry is made in the label table with a 
statement label code, the current (updated) 
sequential number, and the current block 
level and block count. 

Statements having multiple labels give 
rise to multiple label table entries. 
These entries are identical except for the 
BCD name. 

If the statement following a label is 
subsequently identified as a PROCEDURE or 
ENTRY statement, the label table is re- 
accessed, and the entries associated with 
the statement are modified (see Appendix 
C. 2 ) . 


Chains Constructed by Read-In 


To provide rapid scanning in the 
dictionary phases, the following chains are 
constructed by the Read-In Phase: 

The CALL chain 

The PROCEDURE-ENTRY-BEGIN chain 
The DECLARE chain 
The ALLOCATE chain 


Errors and Diagnostic Messages 


As the source text is scanned it is 
syntactically analyzed. Keywords are iden- 
tified and passed as valid only if they may 
legally appear within the type of statement 
being diagnosed. However, consistency of 
attributes and options within a statement 
is not normally analyzed. This is left for 
Phase EK. 

When a syntactical error is detected, an 
attempt is made to correct it and an 
appropriate diagnostic message is generat- 
ed. The main aim of the Read-In Phase is 
to present syntactically correct text to 
subsequent compiler phases. Certain cor- 
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rections are performed without prejudicing 
the complete compilation. 


Detected errors cause a diagnostic mes- 
sage to be added to a diagnostic message 
chain in the dictionary area. Each message 
is in a coded form with parameters (textual 
matter, statement numbers, and so on) . The 
message is decoded and printed out by the 
Error Editor. 


Where an error makes it impossible for 
the scan of a statement to continue, the 
statement is terminated correctly at such a 
point as to leave the statement syntacti- 
cally correct. The text between that point 
and the next semi-colon (not in a comment 
or character string) is skipped. The diag- 
nostic messages produced in these circum- 
stances will include at most the first ten 
characters of the text that is skipped. 


The Output string 


The output string is so arranged that a 
complete statement never spans storage 
blocks. One of the conditions of a suc- 
cessful compilation is that the output 
resulting from any statement must not 
exceed the block. This restriction, howev- 
er, does not apply to DECLARE statements. 
Formats of the statements appearing in the 
output string are given in Appendix D.2. 


Identifiers 


All identifiers which are not recognized 
as keywords in the source text appear in 
the output string. 


Constants 


All constants appear in the output 
string. 


Operators 


All operators appear in the output 
string. 


Initial Labels 


Subscripted label variables which are 
initialized by attachment to statements are 
placed in pseudo-assignment statements in 
text, and. then handled as if they were 
normal labels. 


STRUCTURE OF THE READ- IN LOGICAL PHASE 


The Read-In Phase can occupy 16K bytes 
of storage for any one pass. A storage map 
for this phase is shown in Figure 5. 


Bytes 

0 r 1 

I CA | 

4R I- .| 

I cc I 

?K |- 1 T T T 

j CE J CK j CN I CR j CR j 

8K |- 1 -f + i -1 

| CG | CL | CO | CS | CV | 

12K f + + + + ] 

j Cl | CM j CP | CT j CW j 

16K L X -L X X J 


PASS 1 PASS 2 PASS 3 PASS 4 PASS 5 
Figure 5. Storage Map for the Read-In Phase 

The Read-In Phase consists of five phas- 
es or passes, each containing at most five 
modules. Modules CA and CC consist of 
common routines which are invoked through- 
out the phase by each of the passes, in 
turn. Modules CE, CK, CN, and CR contain 
separate keyword tables. Details of the 
organization of these tables are given in 
Appendix B. Control for each pass resides 
in modules Cl, CL, CO, CS, and CV respec- 
tively. The following description refers 
to the phases by these names. 


Phase Cl 


During phase Cl (the first physical 
phase of the Read- In Phase) the source text 
is read into storage, and character codes 
are converted to an internal form. State- 
ment types are identified, labels are 
inserted into the dictionary, and statement 
identifiers are replaced by single-byte 
codes (see Appendix D. 1). 

A record is kept of block nesting levels 
and counts to enable a check to be made for 
the logical end-of-program indication. In 
order to do this, certain statements have 
to be either partially or completely ana- 
lyzed in this pass. 
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These statements are: 

PROCEDURE-END 
BEGIN-END 
DO- END 
IF-THEN-ELSE 
ON 

If the SOURCE option has been requested, 
a listing of the source program, with the 
statements numbered by the compiler, is 
printed out onto the specified output medi- 
um. 


Phase CL 


The output from phase Cl is processed 
and the statement types listed below are 
analyzed in greater detail: 


ENTRY 

FREE 

PROCEDURE 

WAIT 

DO 

READ 

Iterative DO 

WRITE 

RETURN 

DELETE 

GO TO 

UNLOCK 

DELAY 

LOCATE 

DISPLAY 

REWRITE 

If any errors 

are detected 


during 

pass, diagnostic messages are inserted 
chains in the dictionary as required. 


this 

into 


Phase CO 


The output from phase CL is processed. 
In particular, the DECLARE, ALLOCATE, and 
CALL statements are analyzed in greater 
detail. The syntax of attributes is 
checked, but their consistency is analyzed 
during phase EK. If the source program 
does not contain any of these three state- 
ments, this pass is not invoked. 

If any errors are detected during this 
pass, diagnostic messages are inserted into 
chains in the dictionary. 


Phase CS 


The output from phase CL or CO is 
processed. In particular, the syntax of 
input/output statements is analyzed, 
together with the FORMAT statement. If the 
source program contains no input/output 
statements, this pass is not invoked. 


Phase CV 


This phase processes the output from 
earlier phases. In order to assist subse- 
quent processing* chains are constructed 
for PROCEDURE, ENTRY, BEGIN, CALL* ALLO- 
CATE* and DECLARE statements. 


THE DICTIONARY LOGICAL PHASE 


The Dictionary Phase forms a dictionary 
of identifiers* by first analyzing PROCE- 
DURE, BEGIN, DECLARE, and ENTRY statements. 
The text is then scanned for contextual use 
of identifiers, constants, and pictures. 
Finally, every identifier and constant in 
the source text is replaced by a reference 
to its respective dictionary entry. Dic- 
tionary entries are made during this phase 
for all implicitly defined identifiers. 
The formats of dictionary entries appear in 
Appendix C. 


Constructing and Accessing the Dictionary 


The dictionary, during the construction 
stage, comprises two parts, the hash table 
and the dictionary proper. 

To facilitate a search through the dic- 
tionary for an entry with a particular BCD, 
a method is used of dividing the dictionary 
into areas. Each area is characterized by 
a property of the BCD of each entry in it. 
In practice, these areas are not contiguous 
but are chained lists, each item in the 
list being one dictionary entry long. 

The start of each list is in a table, 
known as the hash table. The association 
of a particular identifier with a list, 
i.e. the characterization of an area* is 
achieved by deriving from a given BCD an 
address in the hash table. 

"Hashing" is a process of reducing the 
length of the internal representation of 
the BCD to one word. This is done by 
adding successive four-byte lengths of the 
BCD into one four-byte register. This is 
then divided by 211, and the remainder is 
doubled to give the hash table address 
associated with the particular BCD. All 
identifiers which hash to the same address 
are placed in a chain; in particular, all 
dictionary entries with the same BCD will 
be in the same hash chain. 

If TOM, DICK, and HARRY occur in the 
same DECLARE statement in that order, and 
they all hash to the same address in the 
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hash table, the address in the hash table 
will point to HARRY'S entry, which contains 
the address of DICK, which, in turn, con- 
tains the address of TOM. 

When no further BCD entries are to be 
made in the dictionary, and all BCD iden- 
tifiers in the source text have been 
replaced by dictionary references, the hash 
table is deleted. 


Testing for Consistent Attributes 


A test is made at the start of each list 
of attributes, to ensure that any list of 
attributes at one level of factoring in a 
DECLARE statement is consistent. 


Compiler Pseudo- Variables and Functions 


Expressions specified for array bounds, 
string lengths, and initial value iteration 
factors must be evaluated at object time, 
or at allocation time if the variable is 
controlled. The expressions are placed 
temporarily at the end of the text, and are 
later moved by Phase FV and placed 
immediately following the BEGIN, PROCEDURE 
or ALLOCATE statement to which the declared 
variable belongs. Tbe expression results 
are assigned to pseudo-variables generated 
by the compiler. These serve two purposes: 
first, the assignment statement appears as 
a normal PL/I statement and need not be 
treated as a special case; secondly, the 
pseudo-variable contains the dictionary 
reference of the variable and information 
concerning the destination of the 
expression. Compiler functions with a 
format similar to the pseudo-variables are 
also created. The function result is the 
specified array bound, or string length. 
Compiler functions are created for two 
purposes: first, to set bounds for base 
elements of structures when the structure 
bound is an expression, or to set the 
bounds of temporary arrays; and secondly, 
to set the storage address of a dynamically 
defined item immediately before its use. 

The formats of all the compiler 
pseudo— variables and functions appear in 
Appendix D.8. 


Dictionary Entries for Entry Points 


A PROCEDURE or ENTRY statement may have 
more than one label. Each label must have 
a data description to indicate the type of 


a function, and also the type of data to 
which the expression in a RETURN 
(expression) must be converted. These need 
not be the same: there must therefore be 
provision for two data descriptions for 
each label. A PROCEDURE or ENTRY statement 
may specify parameters. The descriptions 
of these identifiers, obtained from DECLARE 
statements or default rules, are used for 
prologue construction, but not for paramet- 
er matching. Any data description given on 
these statements is to be used for conver- 
sion at a RETURN (expression) , but not for 
determining the result returned by a func- 
tion reference. 


Parameter descriptions for use in param- 
eter matching, and data description used 
for determining the type of data returned 
by a function reference, may be specified 
by the source programmer in an ENTRY dec- 
laration. If these are not given, default 
and implicit rules must be used to build a 
data description, but no parameter descrip- 
tion can be given. 


Given the foregoing requirements, the 
dictionary entries describing an internal 
entry point are as given in Figure 6. 

The set of dictionary entries A, B, C, 
D, E is repeated for each label associated 
with the PROCEDURE or entry statement. The 
entry F will point to entry A for the first 
label only. D will point at the label with 
which it is associated. It should be noted 
that B and C may coincide. 

The entries type 1 for PROCEDURE, ENTRY, 
and BEGIN statements are chained amongst 
themselves in the following way. Each 
entry type 1 belonging to a PROCEDURE or 
BEGIN statement contains the dictionary 
reference of the entry type 1, of the next 
PROCEDURE or BEGIN statement in the source 
program, and also of the entry type 1 of 
the immediately containing block. 

The entries type 1 of PROCEDURE and 
ENTRY statements belonging to a single 
procedure are chained together in a circu- 
lar manner, if there are no ENTRY state- 
ments the entry type 1 of the PROCEDURE 
statement points at itself. 

External entry points are described by 
dictionary entries termed entry type 4. 
They contain data descriptions of the value 
returned when referenced as a function, and 
may contain descriptions of parameters. 

Formal parameters which are entry points 
are termed entry type 5, and parameter 
descriptions which are entry points and are 
pointed at by types 3, 4, or 5 are termed 
entry type 6. 
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V 

r 1 

Second entry type 2. 

Used to provide data description 
of value returned when label A 
is invoked as a function. This 
entry may, and usually will, coin- 
cide with B. 

i j 


V 


j Description of 

i 

| first parameter 


| Entry type 1 for 
L- >1 PROCEDURE or 

l j ENTRY statement 
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| j Description of 
|E I 
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Formal parameter 
type 1 entry 
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Description of 
each parameter 
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Note: There is an entry E for each parameter described in D. 
Figure 6. Dictionary Entries for an Internal Entry Point 
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Phase EG 


Phase E3 has two main functions. The 
first is to set up a hash table, and to 
insert the label entries left in the dic- 
tionary by the Read- In Phase into hash 
chains. The second function of the phase 
is to create dictionary entries for PROCE- 
DURE, BEGIN, and ENTRY statements, and to 
construct chains linking entries of parti- 
cular types. 


For PROCEDURE- BEGIN statements, entry 
type 1 dictionary entries are created (see 
Appendix C.2), and block header chains are 
set up to link these entries sequentially. 
A containing block chain is also set up to 
link each entry with that of its containing 
block. 


On the appearance of PROCEDURE state- 
ments, circular PROCEDURE-ENTRY chains are 
initialized to link the entry type 1 dic- 
tionary entries of the PROCEDURE and ENTRY 
statements of the same block. The formal 
parameter list is scanned, and formal par- 
ameter type 1 entries are • created and 
inserted into the hash chain. Details of 
the PROCEDURE- ENTRY chains appear in Appen- 
dix C.2. 


The attribute list is scanned and an 
options code byte is created in the entry 
type 1 (see Appendix C.2). A check is then 
made for invalid and inconsistent attri- 
butes. CHARACTER and BIT attributes are 
processed, and second file statements (see 
Appendix D.8) are created if necessary. 
Precision data are converted to binary, and 
dictionary entries are created for pictures 
(see Appendix C.7). 
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Statement labels are scanned and their 
entry type 2 dictionary entries are creat- 
ed. The relevant data bytes in the dic- 
tionary are completed by default rules (see 
Appendix C.3). 

For ENTRY statements, entry type 1 dic- 
tionary entries are created (see Appendix 
C.2), and the circular PROCEDURE-ENTRY 
chain is extended. Formal parameters, 
attributes, and labels are processed in a 
similar manner to those for PROCEDURE 
statements, except that the options code 
byte is not created. 


Phase El 


Phase El scans the chain of DECLARE 
statements set up by the Read-In Phase, and 
modifies the statements to assist Phase EK 
as follows: 

Structure Level Numbers: these are con- 

verted to binary. 

Factored Attributes : parentheses enclosing 
factored attributes are replaced by special 
code bytes, so that Phase EK can distingu- 
ish them easily. A factored attribute 
table is set up. It consists of slots 
corresponding to each factored level. Each 
slot contains the address of the attribute 
list associated with that level, and the 
address of the slot for the containing 
level. 

The following attributes are processed: 

DIMENSION: dimension table entries (see 

Appendix C.8) are created in the dictionary 
and the source text is replaced by a 
pointer to the entry. Fixed bounds are 
converted to binary and inserted in the 
table. A second file statement (see Appen- 
dix D.8) is created at the end of the text, 
for adjustable bounds, and a pointer to the 
statement is inserted in the dimension 
table. Identifiers with identical array 
bounds share the same dimension table. 

PRECISION: precision and scale constants 

are converted to binary. 

INITIAL: dictionary entries are created 

for INITIAL attributes. 

INITIAL CALL: second file statements are 

created for INITIAL CALL attributes. 

CHARACTER and BIT: fixed length constants 
are converted to binary; a code byte marker 
is left for * lengths (see Appendix C.8). 
Second file statements (see Appendix D.8) 
are created for adjustable length con- 
stants, and the source text is replaced by 
pointers to the statements. 


DEFINED: second file statements (see 
Appendix D.8) are created and the source 
text is replaced by pointers to the state- 
ments. In the case of DEFINED attributes 
with iSUBs , the iSUBs are made to precede 
their coefficient expressions. The syntax 
of the isUB list is also checked. 

POSITION: the position constant is con- 
verted to binary. 

PICTURE: a picture table entry (see Appen- 
dix C. 7) is created and inserted into the 
picture chain; similar pictures share the 
same picture table. The source text is 
replaced by a pointer to each entry. 

USES and SETS: USES and SETS attributes 
are moved into dictionary entries, and 
pointers to the entries replace the source 
text. 

LIKE: BCD entries are created for iden- 
tifiers with the LIKE attribute. 

LABEL : if the LABEL attribute has a list 
of statement label constants attached, a 
single dictionary entry is created. The 
dictionary entry contains the dictionary 
references of the statement label constants 
in the list. 

All other attributes, identifiers, or 
constants are skipped. 


Phase EL 


Phase EL, consisting of modules EK, EL, 
and EM, scans the chain of DECLARE state- 
ments constructed by the Read- In Phase. 

An area of storage known as the attri- 
bute collection area is reserved. This is 
used to store information about the iden- 
tifiers, and has entries of a similar 
format to that for dictionary entries. 

Complete dictionary entries are con- 
structed for every identifier found in a 
DECLARE statement. These identifiers can 
be one of the following types : 

1. Data Items (see Appendix C.4) 

2. Structures (in this case, the 'true' 
level number is calculated) (see 
Appendix C.4) 

3. Label Variables (see Appendix C.4) 

4. Files (see Appendix C.7) 

5. Entry Points (see Appendix C.2) 

6. Parameters (see Appendix C.7) 
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Identifiers appearing as multiple dec- 
larations are rejected and a diagnostic 
message is given. 

The attributes to be associated with 
each identifier are picked up in three 
ways . 

First, the attributes immediately fol- 
lowing the identifier are stored in the 
attribute collection area. 

Secondly, any factored attributes and 
structure level numbers are examined. 
These are found by using the list of 
addresses placed in scratch core storage by 
Phase El. Each applicable attribute is 
marked in the attribute collection area, 
and any other information, e.g. dimension 
table address, or picture table address, is 
moved into a standard location in the 
attribute collection area. All conflicting 
attributes are rejected and diagnostic mes- 
sages are given. 

Finally, any attributes which are 
required by the identifier, and which have 
not been declared, are obtained from the 
default rules. 

After the dictionary entry has been 
made, further processing (e.g. linking of 
chains, etc.) must be done in the follow- 
ing cases: 

1. DEFINED data 

2. Data with the LIKE attribute 

3. Files 

4. Strings with adjustable lengths 

5. Arrays having adjustable bounds 

6. GENERIC identifiers 

7 . structure members 

8. Identifiers with INITIAL CALL 

9. Identifiers with the INITIAL attribute 

After the declaration list has been 
fully scanned and processed, it is erased. 


Phase EP 


Phase EP first conditionally marks later 
phases as 'wanted' or 'not wanted,* accord- 
ing to how certain flags in the dictionary 
are set on or off. This assists in the 
load-ahead technique. 


The entry type 1 chain in the dictionary 
is then scanned. For each PROCEDURE entry 
in the chain, each entry label is examined 
for a completed declaration of the type of 
data the entry point will return when 
invoked as a‘ function. If this has pre- 
viously been given in a DECLARE statement 
nothing further is done, otherwise entry 
type 2 and 3 dictionary entries are con- 
structed from default rules (see Appendix 
C.2). If this default data description 
does not agree with the description derived 
from the PROCEDURE or ENTRY statement, a 
warning message is generated. 

At each PROCEDURE entry, the chain to 
the ENTRY statement entry type 1 is fol- 
lowed. Each statement is treated in a 
similar manner to that for a PROCEDURE 
entry type 1. 

The CALL chain is then scanned and, at 
each point in the chain, the dictionary is 
searched for the identifier being called. 
If the correct one is not found, a dic- 
tionary entry for an EXTERNAL procedure is 
made (see Appendix C.2), using default 
rules for data description. Before making 
the entry, the identifier is checked for 
agreement with any of the built-in function 
names. If there is agreement., a diagnostic 
message is generated, and a dummy diction- 
ary reference is inserted- 

If an identifier is found, it is 
examined to see if it is an undefined 
formal parameter. If it is, the formal 
parameter is made into an entry point, 
again using default rules for data descrip- 
tion. If it is not, or if the declaration 
of the formal parameter is complete, the 
type of entry is checked for the legality 
of the call. A diagnostic message is 
generated if the item may not be called. 
In all cases, the item called is marked 
IRREDUCIBLE if it has not previously been 
declared REDUCIBLE. 


Phase EW 


Phase EW is an optional phase, loaded 
only if any LIKE attributes appear in the 
source program. 

This phase scans the LIKE chain which 
has been constructed by Phase EK, and 
completes, the dictionary entry for any 
structure containing a LIKE reference. 
When a structure in the LIKE chain is 
found, its validity is checked, and dimen- 
sion data and inherited information are 
saved. The dictionary is scanned for the 
reference of the "likened" structure and 
the entry is checked for validity. 
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This dictionary entry (see Appendix C.4) 
is copied into the dictionary, with altera- 
tions if there is a difference between the 
original structure and this structure with 
regard to dimensioned data. If both struc- 
tures have dimensions a straight copy is 
made; if the structure with the^IKE attri- 
bute has dimensions and the likened struc- 
ture has not, the dimension information is 
added to the copy; if the structure with 
the LIKE attribute is not dimensioned and 
the likened structure is, then the dimen- 
sion data is deleted from the copy. Inher- 
ited data is added to the copy. If an 
error is found, the structure with the LIKE 
attribute is deleted and a base element 
copy of the master structure is inserted 
instead. Where copies of entries occur 
which refer to dimension tables with varia- 
ble dimensions, the dimension table entry 
is copied, and new second file dictionary 
entries and statements are created. Simi- 
lar entries must be made if the structure 
item has been declared to be an adjustable 
length string, or has been declared with 
the INITIAL attribute. 


Phase EY 


Phase EY is an optional phase which 
processes all ALLOCATE statements in which 
attributes are declared. 

The second file is scanned first and all 
pointers to the dictionary are reversed. 
All ALLOCATE statements using the DECLARE 
chain are then scanned, and the dictionary 
references of allocated items are obtained 
by hashing the respective BCD of each item. 
The attributes given on the ALLOCATE state- 
ment for an item are collected together. 

A c o py of the dictionary entry of the 
allocated item is then made (see Appendix 
C.4), and the ALLOCATE statement is set to 
point to it. The dictionary entry is 
completed by including any attributes given 
on the ALLOCATE statement, and copying any 
second file statements from the DECLARE 
chain which are not overriden by the ALLO- 
CATE statement. 


Phase FA 


Phase FA scans the text sequentially. 
If, during the scan, qualified names are 
found with subscripts attached, they are 
reordered so that a single subscript list 
appears after the base element name. The 
dictionary is scanned and references 
obtained for any identifiers which are, 
contextually, file or event variables, or 


programmer-named ON conditions. If no ref- 
erence is available, a new dictionary entry 
is made. The identifier is then replaced 
in the text by the dictionary reference. 

If a constant marker is found, the 
dictionary is scanned to check if the 
constant is present. if it is not, a new 
dictionary entry is made (see Appendix C.7) 
and the resulting reference replaces the 
constant in the text. 

If a P FORMAT marker is found, the 
dictionary is scanned for a picture entry 
in agreement. If there is no agreeing 
entry, a new dictionary entry is made (see 
Appendix C.7) and the picture chain is 
updated. The dictionary reference replaces 
the format marker in the text. 

The CALL chain is removed from CALL 
statements. The appearance of PROCEDURE, 
BEGIN, END, and DO statements results in 
adjustments to the level and count stacks. 
If statement introduction code bytes appear 
(such as SN, SL, CL, and SN2) , the current 
statement number is updated. All data 
associated with the PROCEDURE, BEGIN, 
ENTRY, and DECLARE statements is removed, 
leaving only the statement identification 
and the keyword. 


Phase FE 


When an identifier is found, the hash 
chain is used to scan the dictionary for a 
valid entry. If one is found, its dic- 
tionary reference replaces the identifier 
in the output text. If no valid entry is 
found, and the BCD does not agree with any 
entry in the tables of BCDs of PL/I built- 
in functions, then a dictionary entry is 
made as if the identifier was declared in 
the outermost procedure. However, if the 
BCD agrees with a function name, and it is 
not in a SETS position, a function entry is 
made in the dictionary, and its reference 
is used to replace the identifier. 

If a left parenthesis is found, the 
previous dictionary entry is checked for an 
array, function, or pseudo-variable. If it 
is one of these, the relevant marker is 
inserted in the text before the parenthesis 
(see Appendix D.l). 

Checks are also made for the positions 
of function references in assignment 
statements. Any dictionary references 
encountered in the input file are moved 
directly to the output file. 

PROCEDURE, BEGIN, DO, and END statements 
cause the current level count to be updat- 
ed. 
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Phase FI 


Phase FI scans the text and checks, 
where possible, the validity of dictionary 
references found. References in a GOTO 
statement are checked that they refer to 
labels or label variables and that the 
subsequent branch is valid. The code byte 
for GOTO is changed to GOOB (see Appendix 
D.l) if the branch goes outside the current 
block. 

References are checked if they appear 
where a file is expected. Items in data 
lists are checked for validity, and Data 
Element Descriptors (DEDs) and symbol bits 
are set on for all variables found in the 
lists. 

Any errors which are found cause diag- 
nostic messages to be generated and dummy 
references to be placed in the text in 
place of erroneous references. 


Phase FK 


Phase FK scans the attribute collection 
area for entries with the SETS attribute. 
The SETS lists in the dictionary entries 
are scanned, and their syntax checked. 
Identifiers are counted and replaced by 
their dictionary references. Constants are 
counted, converted to binary, and arranged 
in ascending order in the dictionary entry. 


Phase FO 


Phase FO makes a dictionary entry for 
each ON condition mentioned inside a block. 
For ON CHECK conditions multiple dictionary 
entries are made (see Appendix C.7), one 
for each BCD. If a similar condition is 
mentioned more than once in a block, only 
one dictionary entry is made for that 
condition, except for file conditions, ON 
CONDITION, and ON CHECK, when separate 
dictionary entries are made for each dif- 
ferent BCD name. 

SIGNAL and REVERT statements are treated 
in a similar manner to ON statements. 

The dictionary entries for each BCD name 
associated with file or CONDITION condi- 
tions are checked and, if in error, the ON, 
SIGNAL, or REVERT statement is replaced by 
an error statement. A diagnostic message, 
is generated. 

The BCD name of each file entry referred 
to in ON, SIGNAL, and REVERT statements is 


examined. If the BCD is SYSIN or SYSPRINT, 
the dictionary reference of the file entry 
is placed in a slot in the communications 
region. 


A check is made to ensure that formal 
parameters do not appear in CHECK and 
NOCHECK lists . A single dictionary entry 
is created for each CHECK and NOCHECK list 
and a pointer to the entry is placed in the 
relevant entry type 1. 

When dictionary entries are made for 
CHECK lists, one of three different check 
codes is used depending on whether the BCD 
is an ENTRY LABEL, a LABEL CONSTANT,* or a 
variable. 

Dictionary entries are also created for 
each ON condition which is disabled for a 
particular PROCEDURE or BEGIN block, and 
for each ON condition whose status is 
changed within the block. Pointers to 
these dictionary entries are placed in the 
relevant entry type 1. 

All dictionary entries for ON conditions 
are placed in the AUTOMATIC chain for the 
relevant PROCEDURE or BEGIN block. 

A further, quite distinct, function of 
this phase is to substitute error state- 
ments for all statements containing dummy 
dictionary references (which have been 
inserted by previous phases on detecting a 
severe error). If a dummy reference is 
found in the second file, the compilation 
is aborted. 

Wherever an element of a label array is 
initialized by appearing as a statement 
label, an assignment to a compiler label 
has been inserted by the Read-In phase. 
Phase FO checks the validity of each such 
assignment; for each array with this type 
of initialization, a second file dictionary 
entry is made, and all assignments to the 
array are chained. 


Phase FQ 


Phase FQ checks the validity of each 
item in the PICTURE chain in the dictionary 
(see Appendix C.7). 

The precision for each correct picture 
is calculated, together with its apparent 
length, and stored in its dictionary entry. 
A data byte is created in the entry for use 
by Phase FT. 

Invalid pictures cause appropriate diag- 
nostic messages to be generated. 
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Phase FT 


Phase FT performs certain housekeeping 
tasks. These are as follows: 


1. The second file entries are scanned 
and pointers to each entry are insert- 
ed in the associated dictionary entry 
(see Appendix C.7). 


2. Each item which has a storage class is 
inserted into the appropriate chain 
for that class (see Appendix C.4). 


3. Constants are placed in the constants 
chain and their apparent precision is 
calculated. Sterling constants are 
converted to pence. 


4. Dimension tables are separated for 
items which are not in structures, but 
which are arrays having similar 
bounds, but with different element 
lengths. 


5. Items which are members of structures 
and which have "inherited" dimensions, 
i.e. are contained in a structure 
which itself is dimensioned, are made 
to inherit their dimensions. If a 
base element of a structure inherits 
dimensions which are not constant, 
second file statements (see Appendix 
D.8) are set up to initialize the 
bounds in the object time dope vector. 


6. Items which have expressions to be 
evaluated at prologue time, e.g. par- 
ameter descriptions for entry points 
and defined items, are placed in the 
AUTOMATIC chain for the appropriate 
block. 

7. The dictionary entry for any item 
described by a picture is expanded by 
the precision and scale or string 
length, extracted from the picture 
table entry. Identifiers of different 
modes sharing the same picture table 
are now placed in separate tables. 

8. The 'dope vector required' bit (see 
Appendix C.5) is set on where neces- 
sary. 

9. When a label array is found which has 
initial label statements for any of 
its elements, the chained statements 
are moved into the second file. The 
original statement is left in the 
text, to be removed by Phase FV. 


Phase FV 


Phase FV scans the second file and 
reverses the pointers to the dictionary. 


Dictionary entries for DEFINED data are 
completed (see Appendix C.4 and C.5). 
Overlay and correspondence defining are 
differentiated between, as are static and 
dynamic defining. A preliminary check of 
the validity of defining is also carried 
out. 


When PROCEDURE and BEGIN statements are 
encountered, any second file statements 
associated with data in the AUTOMATIC chain 
for that block are inserted in the text 
following such statements. 

When ALLOCATE statements are found, any 
second file statements associated with the 
item being allocated are inserted in the 
text following the statement. 

When a reference to dynamically defined 
data is found, the base reference is 
inserted into the text following the 
defined reference. 

When an initial label statement is 
encountered in the main text, it is not 
copied into the output string. 


Phase FX 


Phase FX is an optional phase entered 
only if the XREF or ATR (cross reference 
lister and attribute lister respectively) 
options are specified. It scans the STA- 
TIC, AUTOMATIC, and CONTROLLED chains, and 
the formal parameter lists. 

For each identifier it creates an entry 
in scratch text storage of the form: 

2 bytes 3 bytes 3 bytes 

r t t 1 

j Dictionary |Text reference! Text chain | 

j reference jto this item j j 

i ± i. j 

This entry is inserted into a chain of 
similar entries in the alphabetical order 
of the BCD of the identifier. 

If the XREF option is specified, the 
text is scanned for dictionary references. 
When the dictionary reference of an iden- 
tifier is found in the text, an entry is 
created in a chain of entries from the 
dictionary entry of the identifier. 
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Eacn member of the chain which rep- 
resents a reference to the identifier, has 
the following form: 

2 bytes 3 bytes 

r T 1 

| Statement number | Text chain J 

i x j 

Each reference chain for an identifier 

is in scratch text storage. 

The sorted chain of identifiers is then 

scanned, and for each entry in the chain 

the following actions take place: 

1. The statement number of the DECLARE 
statement, if any, in which the iden- 
tifier was declared is printed 

2. The BCD of the identifier is printed 

3. If the ATR option is specified, the 
dictionary entry of the identifier is 
analyzed and its attributes are print- 
ed 

4. if the XREF option is specified, the 
reference chain for the identifier is 
scanned, and the statement number con- 
tained in each entry is printed 

Finally, all scratch storage is released 
and control is passed to the Pretranslator 
Phase. 


THE PRETRANSLATOR LOGICAL PHASE 


The purpose of the Pretranslator Phase 
is to expand those statements in the lan- 
guage that can be broken down into simpler 
statements, and to insert explicitly gener- 
ated statements in place of implied ones. 

Second level markers (see Appendix D.l) 
are removed from internal compiler codes, 
and some of the I/O statements are changed 
into a form more suitable for the pseudo- 
code phase. 

Argument lists are examined and the 
matching of arguments with parameter 
descriptions takes place, with temporary 
variables being created where necessary, 
e.g., where data conversions are required. 

If the compilation contains ON CHECK 
conditions the appropriate calls to the 
library routine are provided. 

Any structure assignments containing the 
BY NAME option are processed. 

If any structure assignment statements 
or structures in I/O lists are detected in 


the program, they are expanded into scalar 
assignments and DO groups. 

If the program contains any array 
assignments, or array expressions in I/O 
lists, these are expanded into DO loops and 
scalar assignments or expressions. 

If the program contains iSOB references, 
the subscripts are computed for the base 
array corresponding to the subscripts given 
for the defined array. 


Additions to the Text 


In addition to changing the content of 
the text, the Pretranslator introduces some 
new symbols and grammatical forms into the 
source text. These are as follows: 

The Umbrella Symbol: this is designat- 
ed by the symbol code X*5E', which is 
used to introduce a literal as an 
operand. It is used only as a bound of 
a DO loop, or in a call of the dope 
vector pseudo-variable. 

Statements within statements: a list 
of statements may be introduced within 
another statement. In this case the 
inserted list is enclosed in parenthe- 
ses. statements in the list are given 
no statement number field, but they 
have semi-colons at the end. 

I/O statements: the form of I/O state- 
ments is changed considerably during 
the pretranslator phases, as explained 
in the description of Phase GA. 

B UY and SELL statements : s pecial 
statements are introduced for manipula- 
ting temporary storage at object time; 
they have a form similar to ALLOCATE 
and FREE statements. 

Temporary Storage: Pretranslator phas- 
es create temporary variables for func- 
tion and procedure calls where the 
arguments do not match the final param- 
eters, where expressions appear as 
arguments, for control variables for DO 
loops in array and structure assign- 
ments, and for iSUB defined subscript 
lists. The Pretranslator has no mecha- 
nism for evaluating expressions. 
Therefore, temporaries which have no 
data type are created for expression 
arguments with no parameter descrip- 
tion. The data type of these temporar- 
ies is completed by the Translator 
generic phase when the resultant data 
type of the expression has been deter- 
mined. 
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When the Pretranslator creates a tem- 
porary from an argument which contains 
any array with adjustable bounds or 
adjustable string length, compiler 
functions (see Appendix D.8) .are gener- 
ated in-line, to set up the adjustable 
quantities at object time, to enable 
storage of the correct size to be 
acquired by means of the BUY statement. 


The temporary variables created by the 
Pretranslator have dictionary entries 
similar to variables declared in the 
source program, except that the tempo- 
raries do not have BCD names. 


Phase GA 


Phase GA removes all second level mark- 
ers from internal character codes (see 
Appendix D.l). It then reorders the 
options so that either EDIT, DATA, or LIST 
options appear last. 


In data lists the DO specification is 
moved so that it precedes the relevant 
list, and the END statement is added. 


In format lists iteration factors are 
expanded. 


Phase GK 


Phase GK scans the source text for 
function references. If it finds one, it 
inserts a special marker byte before the 
argument list, followed by: 

1. A code byte giving information about 
the type of function, and whether it 
was called with the TASK option 

2. The current statement number 

3. The current block level and count 

This phase also inserts a special argu- 
ment marker before each argument in the 
list, followed by the reference of the 
corresponding parameter and a code byte to 
show whether or not the argument is speci- 
fied in a SETS list. The number of argu- 
ments present is checked against the number 
given as required by the corresponding 
dictionary entry. 


Phase GP 


Phase GP scans the text for procedure 
and function calls with arguments. These 
are detected by the special markers insert- 
ed by Phase GK. 

Temporaries (see Appendix C.4) are 
created for any arguments which are expres- 
sions. (An expression is defined as being 
any sequence of variables and operators, 
other than single variables followed only 
by a subscript list, or only by a defined 
subscript list and then a subscript list) . 
If a parameter description has been 
declared in an entry declaration, the tem- 
porary which is created is of the same type 
as the parameter description. Otherwise, a 
•chameleon' temporary of unspecified data 
type is created, its type being subsequent- 
ly completed when the expression type has 
been determined by the Translator generic 
phase. 

Expressions are scanned for arrays 
(including partially subscripted arrays), 
structures, or the end of the expression, 
in order to determine the highest form of 
aggregate in the expression, so that the 
correct type of temporary may be created. 

Where the expression contains a partial- 
ly subscripted array, a temporary is creat- 
ed with a dimensionality equal to the 
number of cross sections specified in the 
subscript list. 

When single arguments are specified 
together with parameter descriptions, the 
arguments are compared with the parameter 
description. If there is a lack of match, 
action may be taken in one of two ways. 

1. If the data types are compatible, a 
warning message is printed, and a 
temporary is created 

2. If the data types are incompatible, a 
severe error message is printed, and 
the parameter description is ignored 

When the argument is a single partially 
subscripted array which matches the param- 
eter, a special temporary is created which 
has the same dimensionality as the number 
of cross sections in the subscript list, 
and it appears to be defined upon the 
original argument. Code is then generated 
to initialize the temporaries, multipliers, 
and virtual origin from the dope vector of 
the original argument and the subscript 
list. Similar action is taken for partial- 
ly subscripted structures. 

Whenever a temporary is created, a BUY 
statement contained in nested statement 
brackets is inserted in the output text. 
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followed by the assignment of the expres- 
sion or non-matching argument to the tem- 
porary. After the end of the PROCEDURE or 
function call, all the temporaries generat- 
ed in the call are released by means of a 
SELL statement in nested statement brack- 
ets. 

Temporaries are created for constants 
which are specified as arguments to func- 
tions defined by the programmer. 

If GENERIC entry labels are specified as 
arguments to procedures, a special dic- 
tionary entry is made which contains the 
argument and parameter description dic- 
tionary references, to enable the Transla- 
tor generic phase to select the correct 
generic member. 

A warning message is printed whenever a 
temporary is created for an item declared 
in a SETS list. 

When subscript lists for the number of 
cross sections are being checked, a severe 
error message is printed if a subscript 
list contains too many subscripts, and the 
statement is deleted. 


Phase GU 


Phase GU scans the source text for 
PROCEDURE, BEGIN, and END statements, and 
for statements that may raise a possible 
CHECK condition. 

A list of all items currently checked is 
extracted from the CHECK and NOCHECK lists 
present in PROCEDURE and BEGIN statements. 

Items contained in statements that may 
raise a CHECK condition are examined and 
compared with the list of currently checked 
items.. If the item appears in the list, a 
SIGNAL CHECK statement is created for it, 
either before the statement concerned (for 
labels and entry names) or after it (for 
variables) . 


Phase H F 


The purpose of phase HF is to detect 
structure assignment statements, possible 
structure expressions in data lists in GET 
and PUT statements, and nested statements, 
in particular nested structure assignments. 

The leftmost structure in an expression 
or assignment is used as a basis for 
comparison, and if similar structuring is 
not found throughout the expression or 


assignment, diagnostic messages are issued. 
Any expression containing no structures is 
left unchanged. 

The base elements of the structures are 
found, and if the referenced structures are 
dimensioned, a temporary is created for 
each dimension. It is then added to the 
AUTOMATIC chain for the appropriate block. 
Iterative DO loops are constructed, with 
the temporaries iterating between the upper 
and lower bounds of that particular dimen- 
sion. Base elements are assigned, with the 
temporaries as subscripts, and with scalars 
remaining unchanged. END statements are 
created for the DO loops, and SELL state- 
ments for the temporaries. The statements 
which have been created are nested within 
the original statement. 


Phase HK 


The purpose of Phase HK is to detect 
array or scalar assignments, possible array 
expressions in I/O lists in GET and PUT 
statements, and nested statements, in par- 
ticular nested assignment statements. 

The leftmost array in an expression, or 
the leftmost array or scalar in an assign- 
ment is used as a basis for comparison, and 
if similar dimensions or bounds are not 
found in the array references, diagnostic 
messages are issued- Any expression con- 
taining only scalars is left unchanged. 

For every dimension in an array a tem- 
porary is bought and added to the AUTOMATIC 
chain for the appropriate block. Iterative 
DO loops are constructed, with the tempo- 
raries iterating between the lower and 
upper bounds of that particular dimension 
of the array- The assignment statement is 
added to the output string with additional 
subscripts where necessary. END statements 
are created for the DO loops, and SELL 
statements for the temporaries. 

The statements which have been created 
are nested within the original statement, 
which is changed to a null statement, 
except when it was a scalar assignment. 

The syntax of pseudo-variables is also 
checked. 


Phase HP 


Phase HP scans the source text for 
references to items defined using iSUBs- 
For each reference found, the subscripts 
are computed for the base array correspond- 
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ing to the subscripts given for the defined 
array. 

The base subscripts are assigned to 
temporaries specially created for this pur- 
pose. The reference, with its subscript 
lists replaced by a list of these temporar- 
ies, is added to the text string. 


THE TRANSLATOR LOGICAL PHASE 


The Translator Phase consists of two 
physical phases, the stacker phase and the 
generic phase. The purpose of the Transla- 
tor is to convert the output from the 
Pretranslator into a series of "triples" 
(see Appendix D.4). A "triple" is in the 
form of an operator followed normally by 
two operands. 

The translation is achieved by using a 
double stack, with one part for operators, 
and the other part for operands, and 
assigning two weights to each operator. 
One weight (the stack weight) applies to 
the operator while it is in the stack, and 
the other weight (the compare weight) 
applies when the operator is obtained from 
the input string. 

When an operator is obtained from the 
input string it is compared with the top 
stack operator. Depending on the result of 
the comparison, one or other of the two 
operators is switched on to determine what 
action is next to be performed. Apart from 
some special cases, this action is usually 
either to continue to fill the stack, or to 
generate a triple. The special cases lead 
to various manipulations of the stack 
items, after which the translation process 
continues. 

For the purposes of translation, the 
input text to the translator is considered 
to consist of operators and operands only. 
This means that I/O options, etc., are 
regarded as operators. 

After translation, the text string con- 
sists of operands and operators. All 
statements start with an operator to indi- 
cate a statement number or label, followed 
by the statement type, which may be a 
single operator, as in the case of RETURN 
or STOP, or which may be an operator such 
as a function or subscript marker, followed 
by a list of arguments. This list may also 
include compiler generated statements, 
e.g., DO loops for I/O lists. All I/O 
options are regarded as operators and 
require no markers before them. The end of 
the source text will be marked by a special 
operator, and compiler generated code, 
which may follow this end-of- program mark- 


er, will appear between the marker and the 
special second- end- of- program marker. The 
end of a block of text will be marked by an 
EOB operator. The program is now assumed 
to be syntactically correct. 


Phase IA 


Phase IA rearranges the source text into 
a prefix form, in which parentheses and 
statement delimiters have been removed, and 
the operations within a statement have been 
so arranged that those with the highest 
priority appear first. 

As operators and operands are encoun- 
tered, they are stored in stacks. Tables 
give the priority of each operator as it 
appears in the input text and in its stack. 

When an operator is found during the 
scan of the source text, its compare weight 
(see Appendix D.4) is tested against the 
stack weight of the top operator in the 
stack. If the compare weight is the lesser 
of the two, then action is taken according 
to the compare operator. This is referred 
to as the compare action. Similarly, if 
the compare weight for the current operator 
found in the scan is greater than or equal 
to the stack weight of the top stack 
operator, action is taken according to the 
top stack operator. This is referred to as 
the stack action. Normally, the compare 
action is to place the compare operator in 
the stack, and to continue the scan, plac- 
ing any subsequent operand in the stack 
until another operator is found. The nor- 
mal stack action is to generate a triple, 
consisting of the top operator in the stack 
and the top two operands, eliminating the 
items from the stack, and inserting a 
special flag as the operand of the triple 
which is now at the top of the stack. The 
source (compare) item is then compared with 
the new top stack item. 

The output text of the stacking phase is 
in the form of a series of triples, i.e. 
statement types with no operands, and oper- 
ators with one or two operands. If the 
result of a triple operation is to be used 
in a later triple, the appropriate result 
is flagged accordingly. 

Certain phases are marked wanted or not 
wanted at this stage. If the source text 
contains an invocation by CALL or function 
reference. Phases IL and IM are marked 
wanted. If it does not. Phases IL, IM, IN, 
10, IP, IQ, MG, MH, MI, MJ, MK, MM, MN, and 
MO are marked not wanted. Phases MB and MC 
are marked wanted when the source text 
contains pseudo-variables or multiple 
assignments; otherwise, they are marked not 


38 



wanted. The DO loop processing phases (LG 
and LH) are marked in co-operation with the 
dynamic initialization phases (LB and LC) . 
If LB and Lc are requested, the marking of 
LG and LH is left until that stage of 
compilation; otherwise, LG and LH are 
marked by Phase I A independently. 


Phase IG 


Phase IG is an optional phase which is 
loaded to process array and structure argu- 
ments to built-in functions. When aggre- 
gate arguments are given for built-in func- 
tions they are expanded by the structure 
and array assignment phases so that the 
built-in functions appear as base elements, 
subscripted where necessary. 

Phase GP examines these arguments, and 
ascertains whether it is necessary to 
create a dummy. If it is necessary, a 
scalar dummy is created, but the assignment 
of the argument expression is not inserted 
in the text, as this would be an invalid 
aggregate assignment. 

Phase IG examines the text for a BUY 
statement for a dummy for an aggregate 
argument to a built-in function, and then 
inserts an assignment triple in the correct 
place in the text. 


Phase IL 


This phase immediately precedes the main 
generic phase. Its function is to obtain a 
block of scratch storage and place the 
entire built-in function table in that 
area. The starting address of this table 
is then placed in a register, and control 
is released to the main generic processor. 


Phase IM 


Phase IM scans the source text for 
procedure invocations by a CALL statement, 
procedure or library invocations by a func- 
tion reference, and assignments to 
"chameleon" dummy arguments (see Phase GP) . 

Any procedure which is generic and is 
invoked by a CALL statement or function 
reference is replaced by the appropriate 
family member. If the invoked procedure is 
non-generic, it is ignored. A generic 
library routine invoked by a function ref- 
erence is also replaced by the appropriate 
family member. 


The arguments passed to library routines 
are checked for number and type, and a 
conversion inserted where necessary and 
possible. 

The type and location of the result of 
all function invocations is placed in the 
text which- follows the end of the text 
which invoked the function. The resulting 
type of an expression assigned to a 
"chameleon" dummy is determined and set in 
the dictionary entry which relates to the 
dummy. 


THE AGGREGATES LOGICAL PHASE 


The Aggregates Phase consists of two 
physical phases, the structure processor 
(phase JK) and the DEFINED chain check 
(phase JP) . 

The structure processor phase carries 
out the mapping of structures and arrays in 
order to align elements on their correct 
storage boundaries. 

The DEFINED chain check ensures that 
items DEFINED on arrays and structures can 
be mapped consistently. 


Phase JK 


Phase JK scans the AUTOMATIC, STATIC, 
and CONTROLLED chains for arrays, struc- 
tures, adjustable length strings, and 
DEFINED items. 

For the base elements of structures 
without adjustable bounds or string 
lengths, the following calculations are 
made : 

The offset from the start of the major 
structure 

The padding required to align the ele- 
ments on the correct boundary 

All multipliers of arrays of struc- 
tures. 

For all minor structures and major 
structures the following calculations are 
made: 

Size 

The offset from the preceding alignment 
boundary with the same value as the 
maximum appearing in the structure 
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Where a structure contains adjustable 
bounds or string lengths, code is generated 
to call the Library at object time. 

For arrays, the multipliers are calcu- 
lated, unless the array contains adjustable 
items, in which case the Library performs 
the calculations. 

For adjustable structures, arrays, or 
strings, code is generated to add a symbol- 
ic accumulator register into the virtual 
origin slot of the dope vector, and the 
accumulator register is incremented by the 
size of the item. 

Calculations are made in a similar 
fashion for arrays of strings (in struc- 
tures or otherwise) with the VARYING attri- 
bute. In addition, code is generated to 
set up an array of string dope vectors 
which refer to the individual strings in 
the array using the dope vector. Code is 
also generated to convert the original dope 
vector to refer to the array of string dope 
vectors, instead of to the storage for the 
array. 

DEFINED items are processed in the fol- 
lowing way: 

Code is generated to set the multipli- 
ers and virtual origin address of cor- 
respondence defined arrays without 
iSUBs in the dope vector of the DEFINED 
items from the defining base dope vec- 
tor. 

Code is generated for overlay defined 
items where either the DEFINED item, 
the base, or both are adjustable. The 
code first maps the DEFINED item, if 
necessary, calculates the address of 
the start of the storage to be used by 
the DEFINED item, and finally, relo- 
cates the DEFINED item using this 
address. 

Dope Vector Descriptor dictionary 
entries and Record Description dictionary 
entries are made for items which need to be 
mapped at object time, or which appear in 
RECORD- oriented input/output statements. 


Phase JP 


Phase JP scans the DEFINED chain, and 
differentiates between the following: 

1. Correspondence defining 

2. Scalar overlay defining 

3. Undimensioned structure overlay defin- 
ing 


4. Mixed scalar-array-structure-string 
class overlay defining 

In correspondence defining, this phase 
differentiates between arrays of scalars 
and arrays of structures. It also checks 
that the elements of the defined item may 
validly overlay the elements of the base 
belong to the same defining class, and that 
the base is contiguous. 

In scalar overlay defining, this phase 
checks that the defined item may validly 
overlay the base. 

For undimensioned structure overlay 
defining, this phase checks that the ele- 
ments of the defined item may validly 
overlay the elements of the base. 

For mixed scalar-array-structure-string 
class overlay defining, this phase checks 
that all elements of the defined item and 
all elements of the base belong to the same 
defining class (bit or character), and that 
the base is contiguous. 


THE PSEUDO-CODE LOGICAL PHASE 


The Pseudo- Code Phase accepts the output 
of the Translator Phase, and converts the 
triples into a series of machine-like 
instructions. The transformation into 
pseudo-code is achieved by a series of 
passes through the text; each pass removes 
certain triples and replaces them by 
pseudo-code, until the entire text is in 
pseudo-code form. On completion of this 
phase, control is handed to the Storage 
Allocation Phase in the output stage. 


Pseudo-Code Design 


Pseudo-code is essentially a one-for-one 
symbolic representation of machine code, 
designed so that it can be transformed 
directly into executable machine code by an 
assembly process. 

Pseudo-code is constructed in basic 
units, the majority of which have a stand- 
ard size of three or five bytes. A varia- 
ble sized unit, however, is also available 
to allow flexibility, its length being 
specified by a length code within the unit. 
The formats of pseudo- code instructions are 
shown in Appendix D. 6. 

A unit consists of a one-byte operation 
code followed by normally, a two- or four- 
byte field, or on the other occasions by a 
variable length field. The bit pattern of 
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the operation code indicates the type of 
unit which it heads. 


Pseudo- Code Items 


In addition to there being one pseudo- 
code item for each machine instruction 
which could be generated, there are also 
pseudo- code items which are produced to 
convey information from one phase of the 
compiler to another. 

These items of information have the same 
format as a pseudo- code item, so that the 
handling and scanning of the source text is 
standardized. They do not, however, appear 
in the final object code. 


Register Description 


In all cases wnere a general purpose 
register appears in pseudo-code, it will be 
described symbolically. When conventional 
registers are required in, for example, 
calling sequences, the registers will be 
referred to physically, as they will be in 
all cases of floating-point register uscige. 


The Use of Symbolic Unassiqned Registers 


Whenever a new register is required 
while pseudo-code is being generated* a 
symbolic register counter is incremented by 
one and, subject to this new value not 
being greater than 16 f 383, it is used as 
the symbolic name of the required register. 
When this register is no longer required a 
DROP pseudo-code item is inserted into the 
text to indicate to the Register Allocation 
Phase that the physical register allocated 
to this symbolic register may be 
reassigned. 


The Use of Physical Registers 


Physical general purpose registers will 
be used either as arithmetic registers or 
as parameter registers. 

With arithmetic registers, it is the 
responsibility of the pseudo-code genera- 
tion phases to save and restore the reg- 
isters as necessary. This will apply both 
to the general purpose arithmetic registers 
(namely 14 and 15) and to the four 
floating-point registers. Although this is 


of primary interest to the expression 
evaluation phases, it should be realised 
that all phases which generate calling 
sequences must be aware of the current 
status of arithmetic registers, and gener- 
ate code to save and restore them as 
necessary. 

In the case of parameter registers, 
however, the Register Allocation Phase will 
be able to save and restore them as 
required. 


Temporary Descriptors 


As expressions are evaluated, a series 
of intermediate temporary results are 
obtained. These results, or their -address- 
es, may be contained in symbolic or 
assigned registers, in a dictionary ref- 
erence, with or without an index register, 
or in workspace. Temporary descriptor tri- 
ples (TMPD) are inserted in the text to 
enable the correct pseudo-code instructions 
to be generated from the triples. The 
format of TMPD triples is described in 
Appendix D.9. 


Temporary Workspace 


A block of temporary workspace is used 
to store intermediate results obtained in 
evaluating expressions at object time. 
Pseudo-code phases allocate the next avai- 
lable workspace location within the block, 
and then update the location pointer, 
whenever the necessity to save an inter- 
mediate result arises. The location of the 
intermediate result is then described for 
later phases by a TMPD in the text. Inter- 
mediate results are only required during 
the execution of single PL/I statements; 
they are never preserved from one statement 
to another. 

At the end of the pseudo- code phases the 
maximum size of the temporary storage 
required in each PL/I program block is 
placed in a dictionary entry. The required 
amount of workspace is then allocated in 
each Dynamic Storage Area (DSA) by Phase 
PT. 


Phase LA 


Phase LA is a utility phase which 
remains in storage during the whole of the 
Pseudo-Code Phase. It provides the main 
scanning routines to handle input and out- 
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put text during the Pseudo-Code Phase. If 
a triple spans input blocks, then the part 
of the triple in the first block is copied 
into the first four bytes of the second 
block, to enable a complete triple to be 
returned to the user. 

The routine/subroutine directories in 
this publication give a complete list of 
the routines provided, together with brief 
descriptions of their functions. 


Phase LB 


Phase LB scans through the text for 
PROCEDURE, BEGIN, and ALLOCATE statement 
triples. 

Whenever one of these is found, a scan 
is made through the immediately succeeding 
second file statements; this is to permit 
the future initialization of AUTOMATIC and 
CONTROLLED arrays. 

On completion of this secondary scan, 
the action taken depends on which triple 
was originally found: 

1. For PROCEDURE or BEGIN triples, a scan 
is then made of the AUTOMATIC chain in 
the dictionary. For any scalar varia- 
bles that have been declared INITIAL, 
a set. of triples is created and 
inserted into the text. 

2. For ALLOCATE triples, a set of triples 
is inserted if the item has been 
declared INITIAL. 

Phase LB also marks Phase LG (DO-groups) 
as wanted or not wanted; this is done in 
co-operation with Phase IA. 


Phase LD 


Phase LD scans the STATIC chain for any 
variables which have been declared INITIAL. 

When a scalar variable is found, the 
phase constructs two dictionary entries: 
one for the constant, and one for the 
converted constant. 

For arrays, the phase scans the initial 
value string, creating an initialization 
table in the dictionary. Replication fac- 
tors are converted and inserted into the 
table; treatment of the constants is then 
as described for scalar variables. 

Phase OS converts the constants to their 
specified internal form. 


Phase LG 


Phase LG scans the text for DO loops. A 
stack is maintained with each entry con- 
taining a description of a Do group. The 
stacking reflects the nesting of the DO 
groups. For each DO or iterative DO triple 
a new entry is made at the top of the 
stack. 

DO specification triples are analyzed 
and expressions are assigned to temporar- 
ies; subscripts in the control variable are 
assigned to binary integer temporaries if 
they are themselves variable. At the end 
of each specification, pseudo-code and tri- 
ples are generated to control the loop. 

Triple operators (see Appendix D.4 ) 
peculiar to the specification of DO loops 
are removed from the text. 

For control variables, other than simple 
scalars, text is placed in the DO stack and 
used at every appearance of the control 
variable in the generated text. During 
this time, a scan is also made for pseudo- 
variables, subscripts, functions, and 
argument markers. 


Phase LR 


The purpose of Phase LR is to save space 
during the expression evaluation phase, LS. 
It provides the initialization for Phase LS 
by obtaining 4,096 bytes of scratch storage 
and setting stack pointers. The scan 
phase. Phase LA, is initialized and Phase 
MP is marked. 

The translate table for scanning tri- 
ples, and the constants for expression 
evaluation are included in this phase and 
are moved to the first IK area of scratch 
storage. Finally, control is passed to 
Phase LS. 


Phase LS 


Phase LS scans the source text to con- 
vert expression triples to pseudo-code. If 
a triple produces a result, it is added to 
the temporary work stack. 

For the arithmetic triples 
prefix +, and prefix -, the operands are 
combined to give the base, scale, mode, and 
precision of the result. If conversion is 
necessary, an assignment triple, with the 
target and source types as operands, is 
inserted in the text. In-line pseudo-code 
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is generated for all operators except ** 
and some complex type * and / operators. 
In these cases. Library calling sequences 
are generated. An intermediate result is 
always produced and the triple is removed 
from the text. 


The operands of comparison triples GT, 
GE, equals, NE, LE, and LT are combined and 
converted as for the arithmetic triples. 
In-line pseudo- code is generated and the 
triple is removed from the text, unless 
both operands are string type, in which 
case a temporary is created. If the next 
triple is a conditional branch, a mask for 
branch-on-false is inserted. Otherwise, 
the result is a length 1 bit string. 

For the string triples CAT, AND, OR, 
NOT, and string comparisons, if an operand 
is zero, TMPD triples, containing the 
intermediate result from the top the stack, 
are inserted in the text after the triple. 
The result is a CHARACTER or BIT string or 
a COMPARE operator. 

When subscript triples appear, a symbol- 
ic register number is inserted in the 
triple. The result contains the dictionary 
reference of the array and the symbolic 
register. 

For function triples, a description of 
the workspace for the function result is 
inserted in the TMPD triples which follow 
the function triples. The function result 
is added to the intermediate stack. 

For add, multiply, and divide functions, 
the function and argument triples are 
removed from the text- Arithmetic type 
in-line pseudo-code is generated, with 
modifications for the precision and scale 
factor, and the result is added to the 
intermediate stack. 

With pseudo-variable triples, a special 
marker is added to the intermediate result 
stack. 

Other triples which may use an inter- 
mediate result, are examined. If an oper- 
and is zero, two or three TMPD triples, 
containing the intermediate result from the 
top of the stack, are inserted in the text 
after the triple. If both operands are 
zero, the TMPDs for the second operand 
precede those for the first operand. 


Phase LV 


Phase LV provides string handling facil- 
ities for the pseudo-code phases. 


It converts any type of data item to a 
CHARACTER or BIT string, and an assignment 
triple, with the target and source types 
used as the operands, is inserted in the 
text. 

A string dope vector description is 
produced from a standard string descrip- 
tion. 


Phase LW 


Phase LW scans the source text to con- 
vert string triples to pseudo-code. If a 
result is produced it is added to a stack 
of intermediate string results. 

For the comparison triples Gt, GE, 
equals, NE, LE, AND LT, both operands are 
already string type. If one operand is 
zero, the operand is obtained from the 
associated TMPD triples. In-line pseudo- 
code is generated if the operands are of 
known equal lengths less than or equal to 
256 bytes; otherwise. Library calling 
sequences are generated. The triple and 
any TMPD triples are removed from the text. 

In the case of the string triples CAT, 
AND, OR, and NOT, the operands are convert- 
ed to string type by phase LV. Zero 
operands are obtained from associated TMPD 
triples. In-line pseudo-code is generated 
when operands are aligned and are of known 
lengths less than or equal to 256 bytes. 
Lengths must also be equal for and/or 
operators; otherwise. Library calling 
sequences are generated. The triple and 
any TMPD triples are removed from the text, 
and the string result is added to the 
intermediate result stack. 

For TmPD triples, if the intermediate 
result described by the TMPD triples is a 
string, a complete string description is 
moved from the top of the intermediate 
stack to the TMPD triples. If the TMPD 
triples do not describe a string, they are 
ignored. 

A Library calling sequence is generated 
for the BOOL function, and the associated 
triples are removed from the text. Sub- 
script and function triples may produce 
intermediate string results. 


Phase MB 


Phase MB scans the text for pseudo- 
variable markers and multiple assignment 
markers. A stack of pseudo-variable 
descriptions is maintained, together with 
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the left hand side descriptions of multiple 
assignments when they occur. Pseudo- code 
and triples are generated for pseudo- 
variables and the left hand side 
descriptions of multiple assignments are 
put out in the correct sequence. 


Phase MG 


Phase MG identifies functions which are 
to be coded in-line, and generates, in 
their place, the pseudo- code to perform the 
relevant function. This phase appears 
before the normal function processor phase 
and removes all trace of the in-line func- 
tion. 

The scan of the text is conducted by the 
general SCAN routine, and control is handed 
to the present phase when one of the 
following functions is found: 


ALLOCATION 

FLOOR 

BINARY 

BIT 

I MAG 

DECIMAL 

CEIL 

REAL 

FIXED 

CHAR 

STRING 

FLOAT 

COMPLEX 

TRUNC 

PRECISION 

CONJG 

UNSPEC 



Control is also passed to this phase if 
ABS is found with real arguments. The 
arguments are collected, and the appropri- 
ate routine is entered to generate the 
pseudo-code. When the end- of- program mark- 
er is encountered the terminating routines 
are entered. 


Phase MI 


Phase MI identifies functions which are 
to be coded in-line, and generates , in 
their place, pseudo-code to perform the 
relevant function. This phase appears 
before the normal function processor phase 
and removes all trace of the in-line func- 
tion. 

The scan of the text is conducted by the 
general SCAN routine and control is handed 
to the present phase when one of the 
following functions is found: 

MAX MOD 
MIN ROUND 

If the number of arguments to the MAX or 
MIN functions is greater than these, a 
Library call is generated. 


Phase MK 


Phase MK identifies functions which are 
to be coded in-line, and generates, in 
their place, pseudo-code to perform the 
relevant function. This phase appears 
before the normal function processor phase 
and removes all trace of the in-line func- 
tion. 

The scan of the text is conducted by the 
general SCAN routine, and control is passed 
the present phase when one of the following 
functions is found: 

DIM H BOUND 

LBOUND SIGN 
LENGTH 


Phase ML 


Phase ML scans the source text for 
generic entry name arguments to procedure 
invocations. 

Such entry names may be floating arith- 
metic built-in functions or programmer- 
supplied procedures with the GENERIC 
attribute. When one is found, the correct 
generic family member to be passed is 
selected by this phase, depending on the 
entry description of the invoked procedure. 


Phase MM 


Phase MM scans through the source text 
for procedure invocations by a CALL state- 
ment, or for procedure or Library routine 
invocations by a function reference. 

Procedure invocations are replaced by an 
external standard calling sequence, and 
Library routine invocations are replaced by 
an external or internal standard calling 
sequence as appropriate '(see Appendix 
D. 10) . 


Phase MP 


Phase MP reorders the BUY and SELL 
statements involved in obtaining Variable 
Data Areas (VDAs) for adjustable length 
strings or temporaries, which were created 
by Phase GK. On entering this phase, the 
BUY triples precede the code compiled to 
evaluate the length of storage required for 
the VDA. This evaluation code is included 
between further BUYS and BUY triples, which 
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themselves are between the BUY triple being 
considered and its associated SELL triple. 
Phase MP extracts these sections of code 
and places them before the BUY triple of 
the adjustable string temporary. Since 
such BUY triples may be nested, the phase 
maintains a count to record the nesting 
status. 


Phase MS 


Phase MS scans the source text for 
references to subscripted array elements. 

If references are found, pseudo- code is 
generated to calculate the offset of the 
subscripted element in relation to the 
origin of the array. If necessary, further 
pseudo-code is generated to check the sub- 
script range. 


Phase NA 


Phase NA generates pseudo- code for the 
following triples: 

For PROCEDURE' and BEGIN' triples a 
Library call is generated to the FREEDSA 
routine* 

For RETURN triples a Library call is 
generated, unless a value is to be returned 
as the result of a function invocation* in 
which case code is first generated to 
assign the result to the target field, and 
then the Library call is made. If the 
function may return the result as more than 
one data type, a switch would have been set 
at the entry point to the function, and the 
RETURN statement would test the switch 
value, so that the data type appropriate to 
the entry point is returned. 

GOTO triples either will be invalid 
branches detected by Phase FI, in which 
case they will be deleted, or they will be 
branches to statement label constants in 
the same PROCEDURE or BEGIN block. In this 
case, they will be compiled as one- 
instruction branches. 

A GQOB (Go Out Of Block) triple is a 
branch to a label variable, possibly 
subscripted, or to a label in a higher 
block than the current one (a branch to a 
lower block is invalid) . A call is gener- 
ated to a Library epilogue routine, point- 
ing at a double-word slot containing the 
address of the label and the Pseudo- 
Register Vector (PRV) offset (for a label 


constant), or the invocation count (for a 
label variable). 


STOP and EXIT statements are implemented 
simply by invocation of the appropriate 
Library routine. 

For IF triples, if the second operand is 
an identifier, or the result of an 
expression which is not a comparison, code 
is generated to convert it to a BIT string, 
if necessary. This BIT string is compared 
to zero, either in-line, or by a call to 
the Library. 

The second operand may be a mask which 
will have been inserted by the expression 
evaluation phase as a result of the compar- 
ison specified in the IF statement. This 
mask is put into a generated instruction to 
branch if the condition is not satisfied, 
i.e. either to the ELSE clause or to the 
next statement. 

For ON triples, code is generated to set 
flag bits and update the ON-unit address in 
the double-word ON slot in the DSA. 

For SIGNAL arithmetic condition triples, 
in-line code is generated to simulate the 
condition. For all other conditions, a 
Library error routine is called. 

REVERT triples generate code to set flag 
bits in the double-word ON slot in the DSA. 


Phase NG 


Phase NG generates the calling sequences 
to the Library for DELAY and DISPLAY state- 
ments . 

For DELAY statements, the argument has 
to be a fixed binary integer, and, if 
necessary, code is generated for conver- 
sion. 

For DISPLAY statements, the message must 
be a CHARACTER string, or, if necessary, 
converted to one. A parameter list is 
built up to pass to the Library. 


Phase NJ 


Phase NJ and its supporting block, NK, 
generate the calling sequences to the 
Library module for the RECORD-oriented 
input/output statements: DELETE, LOCATE*., 
READ, REWRITE, UNLOCK*, and WRITE. 
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For each of these calls, the information 


contained in the options of the source 
statement is passed by a parameter list, 
constructed as follows: 


DC 

A (DCLCB) 



DC 

A(RDV| IGNORE. integer) | 

0 


DC 

A (EVENT. scalar*) | 0 



DC 

A(KEYT0. SDV| KEYFROM. SDV 
KEY. SDV) j 0 

1 


DC 

a(request_codes) 



REQUEST_CODES is a full-word containing 
four control bytes with the following mean- 
ings: 


The Record Descriptor Vector (RDV) is 
assumed to have been constructed by earlier 
phases, except in the case of CONTROLLED 
strings or CONTROLLED aggregates, when pro- 
cedure is as follows: 

1. For CONTROLLED aggregates. Phase NJ 
creates a Library call, passing the 
following arguments through registers: 

Register 1 A(D.V) 

Register 2 A (DVD) 

Register 3 A( RESULT. RDV- SLOT) 


2. For CONTROLLED strings, the phase gen- 
erates code to construct the RDV in 
the WORKSPACE storage of the state- 
ment, using the dope vector of * the 
string. 


Byte 1 


Byte 2 

Byte 3 


Operation code 


00 

READ 

04 

WRITE 

08 

REWRITE 

OC 

DELETE 

10 

LOCATE* 

14 

UNLOCK* 


Group 1 options 

code 

04 IGNORE 

08 INTO | FROM 


Group 2 options 

code 

04 KEYTO 

08 NOLOCK 


Byte 4 Reserved (currently 00) 


The IGNORE integer is taken from the 
IGNORE option of the statement and if 
necessary, converted to an integer. 


The EVENT scalar is deferred until third 
release. 


The KEYTO SDV is derived from the KEYTO 
option of a READ statement. 


The KEY SDV and KEYFROM SDV are derived 
from their respective options. If neces- 
sary, they are converted to character 
strings. 


Note that null arguments in the paramet- 
er list or REQUEST_CODES are indicated by 
zeros. 


Both the parameter list and the 
REQUEST__CODES word are constructed in STA- 
TIC storage. However, if the argument of 
one of the options refers to AUTOMATIC or 
CONTROLLED storage, the parameter list is 
moved to the WORKSPACE storage for the 
statement; the argument is then provided 
just before the Library call is made. 


The DCLCB parameter is taken from the 
FILE option of the statement; the FILE 
option must be either a file constant or 
file parameter. 


Phase NM 


Phase NM generates the calling sequences 
to the Library modules for OPEN, CLOSE, 
GET, and PUT statements. 


For OPEN and CLOSE statements, a param- 
eter list is constructed from the options 
given. The options are first checked for 
validity with respect to multiple specifi- 
cations. The arguments on the options are 
checked and converted, if necessary, to the 
correct data type. If no file is specified 
in an OPEN or CLOSE statement, it is 
ignored. The parameter lists are as fol- 
lows: 


♦Deferred features not included in second 
version . 
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OPEN 

DC 

A(DCLCB) 


DC 

A(OCB) 


DC 

A(TITLE.SDV) 


DC 

A(IDENT.SDV) 


DC 

A(IDENT.DED) 


DC 

A(KEYLENGTH) 


DC 

A (LINESIZE) 


DC 

A(PAGESIZE) 

CLOSE 

DC 

A(DCLCB) 


DC 

A(IDENT.SDV) 


DC 

A(IDENT.DED) 


Null arguments are indicated by zero 
address constants. 

For GET and PUT statements, the Library 
call is in three parts. The initializa- 
tion, data transmission (Phase NU) , and the 
termination. The initialization call 
requires a parameter list to be constructed 
from the given options. The options are 
checked for legal combinations and the 
arguments examined. 

The parameter list when a file is speci- 
fied is : 

DC A(DCLCB) 

DC A (next statement) 

DC A (binary integer) if SKIP or 
LINE is given. 

For GET and PUT STRING, the argument to 
STRING is checked, and the parameter list 
formed is: 

DC A(SDV of string argument) 

DC A(DED of string argument) 

The termination Library call has no 

parameters. As for the initialization, the 

routine used depends on the options given 
in the statement. 


Phase NT 


This phase, which is a preprocessor for 
Phase NU, has two functions: 

1. Initialization of a block of scratch 
storage for use by Phase NU 


2. Setting up of INCLUDE matrix and 
Library routine entries for edit- 
directed, STREAM- oriented I/O 

statements 

The phase contains all pseudo-code skel- 
etons used by Phase NU. 4096 bytes of 
scratch storage are obtained and the 
pseudo-code skeletons are copied into it. 
The address of the scratch area is then 
passed to Phase NU. 

If a flag has been passed from Phase NM, 
indicating the presence of edit-directed 
I/O, a scan of the text is performed. Data 
and format list items encountered during 
the scan are associated as far as possible*, 
and a sufficient set of Library modules are 
identified for the edit-directed transmis- 
sion specified in the program. The INCLUDE 
matrix is updated and dictionary entries 
are made for the required Library format- 
director routines. 


Phase NU 


Data/format lists in I/O statements 
produce an internal Library calling 
sequence (see Appendix D.10) for each data 
item and format item pair, using registers 
to point at the data item, the data item 
DED, and the FED for the format item. 

Iterations of data items, as in array 
input or output, and of format items, are 
achieved by making DO loops out of the 
iterations. 

The data items are transmitted serially, 
with program flow going from an item in the 
data list, to the corresponding format item 
and then to the relevant Library I/O 
module. On return from the Library module, 
control goes to the code for the next data 
item or, in the case of repeated data 
items, to another iteration of the DO loop. 

Remote format statements are executed in 
a similar way. After the R format item is 
met, control is passed directly from the 
data list to the format statement until the 
end of the format statement. Control then 
returns to the item in the in-line format 
code of the EDIT statement following the 
appropriate remote format item- However, 
if no format elements remain but some data 
list elements are still present, control is 
passed back to the beginning of the format 
statement. 

An R format item referring to a label 
which is not attached to a format state- 
ment, will cause an object time error 
condition to be raised, and the execution 
to terminate. 
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Phase OB 


Phase OB scans through the text for 
compiler functions and compiler pseudo- 
variables (see Appendix D.8). When a 
compiler function is found, pseudo- code is 
generated to access the operands of the 
compiler functions (e.g. # string length, 
array bound) , and to place the operand in 
the location specified by the TMPD follow- 
ing the function. Assignments to compiler 
pseudo-variables are treated in reverse; 
the result from the. TMPD following the 
assignment is stored in the array bound or 
string dope vector slot specified in the 
compiler pseudo-variable. 

Phase OB also scans the text for BUY, 
SELL, and BUY ASSIGN statements. The tem- 
porary operands of these statements are 
examined, and if they are CAD or short 
fixed-length strings, they are allocated 
the next available workspace offset, and 
the BUY and corresponding SELL statements 
are removed from the text. 


P hase OE 

Phase OE translates the following tri- 
ples into pseudo- code: 

Assignment 

Multiple source assignment 
Multiple target assignment 
ALLOCATE, FREE, BUY, and SELL 
Special assignment 

In-line code is generated for the fol- 
lowing types of ASSIGNMENT triples: 

1. Floating-point to floating-point 

2. Fixed binary to fixed binary 

3. Fixed decimal to fixed decimal 

4. Numeric field to numeric field, if the 
pictures given for the operands are 
identical 

5. CHARACTER string to CHARACTER string, 
if the operands are fixed length and 
not more than 256 characters 

6. BIT string to BIT string, if the 
operands are aligned and multiples of 
8 bits, and not more than 2048 bits 

7. Label to label 


8. File constant to file parameter 

Library calling sequences are compiled 
for those cases of CHARACTER string to 
CHARACTER string and BIT string to BIT 
string codes not compiled in-line. 

All other assignment triples are tran- 
slated into the CONV pseudo-code macro. 

If the source operand is a constant, the 
type of the target operand is inserted in 
the constant dictionary entry, for process- 
ing by the constant conversion phase, and 
the assignment is translated assuming the 
target type. 

MULTIPLE ASSIGNMENT triples produce the 
same code as for single assignment, except 
that the registers used by the operand 
concerned must not be changed or dropped. 

Library calling sequences are generated 
for ALLOCATE, FREE, BUY, and SELL triples, 
and pseudo-code markers are left in the 
text for insertion of code by Phase QF. 

With SPECIAL ASSI GNMENT triples, if the 
target is a varying or adjustable string, 
storage is obtained if the target is AUTO- 
MATIC, or allocated if the target is CON- 
TROLLED. The assignment is then translat- 
ed. 


Phase OG 


Phase OG inserts calling sequences for 
all the calls to the Library conversion 
routines represented by the CONVERT P/C 
items. It also converts to pseudo-code all 
statement numbers, statement labels, PROCE- 
DURE, BEGIN, PROCEDURE*, BEGIN*, and end- 
of-program triples. 

IGN pseudo- code items and JMP triples 
are removed. The amount of temporary 
working space required by each block of 
program is calculated and placed in the 
workspace dictionary entry (see Appendix 
C.7). 

The format of the text is converted so 
that a pseudo- code item does not span 
blocks . 

The INCLUDE card matrix is formed for 
all the conversion modules required. 


Phase OS 


Phase OS scans through the constant 
chain in the dictionary and converts the 
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constants to the required internal form. 
These are then stored in a constants pool, 
and the offset of each constant from the 
start of the pool is saved in the dictiona- 
ry entry for that constant. 


To permit the correct alignment of the 
constant pool, three scans are made of the 
constant chain; first to convert all double 
word constants, secondly to convert all 
single word constants, and thirdly to con- 
vert all unaligned constants. 


In the first two scans only one pool 
entry is made for constants having the same 
internal form and value. 

A fourth scan is made of the constant 
chain and all constants required to ini- 
tialize static are converted, but instead 
of inserting these constants in the con- 
stant pool, they are moved into special 
dictionary entries constructed by Phase LB. 


THE STORAGE ALLOCATION LOGICAL PHASE 


The purpose of the Storage Allocation 
Phase is to ensure that every item requir- 
ing storage in a PL/I object program 
obtains a unique location of the correct 
size, located on the correct boundary. 
Items requiring storage include PL/I source 
program variables, dope vectors, dope vec- 
tor skeletons, temporary variables, work 
areas, data descriptors, symbol tables, 
addressing slots, register save areas, flag 
areas, etc. Storage locations are allocat- 
ed to items in order of descending align- 
ment requirement to avoid wasting storage 
by padding to the required alignment. 

The Storage Allocation Phase is also 
responsible for generating prologues. In 
generating the prologues, expressions which 
determine size of variables, code generated 
by the aggregates phase to initialize dope 
vectors, and code generated by the initial 
values phase, must be extracted and placed 
in the correct sequence in the text. Also, 
when a variable depends for its size or 
initial value upon another variable, the 
requests for dynamic storage must be 
arranged so that the dependant variable 
obtains its storage after the variables 
upon which it depends. 

Since all AUTOMATIC and CONTROLLED stor- 
age is obtained dynamically at object time, 
the Storage Allocation Phase generates code 
to relocate dope vectors when the allocated 
storage address is known. 


Phase PD 


Phase PD is the first STATIC storage 
allocation phase. It scans the text, and 
for every second file statement encountered 
sets up a pointer in the associated dic- 
tionary which points to the second file 
statement. It then sorts the STATIC chain 
so that the dictionary entries occur in the 
order in which the storage for their items 
will be allocated. 

Storage is allocated for simple non- 
structured, non- external variables, RDVs, 
DEDs, SAVE/RESTORE entries, and the BCD of 
entry labels and label constants. Storage 
is also allocated for dope vectors for all 
items in the STATIC chain requiring them, 
with the exception of EXTERNAL items. 

The external section of the sorted 
STATIC chain is scanned and a 4-byte 
addressing slot is allocated for each entry 
label, label constant, external (entry type 
4) entry, built-in function, or EXTERNAL 
item. For each EXTERNAL item the size of 
the external control section is calculated 
and stored in the dictionary entry. 

The constants chain is scanned and the 
offsets of the storage and dope vectors for 
constants in the constants pool are relo- 
cated. 

The current size of the STATIC INTERNAL 
control section is computed and the result 
is passed via the communications region to 
the next phase. 


Phase PH 


Phase PH is the second STATIC storage 
allocation phase. It scans the AUTOMATIC 
chain and CONTROLLED chain for all items 
requiring a dope vector. 

For each such item a skeleton dope 
vector dictionary entry is generated in the 
STATIC chain (see Appendix C.7). This 
dictionary entry contains a bit pattern 
equal in length to that of the dope vector 
and containing all those values which are 
known at compilation time. In particular, 
it contains as much of the relative virtual 
origin as is known at compilation time, the 
constant bounds and string lengths, and the 
constant multipliers. 

If the item is dynamically DEFINED, then 
the dope vector is preceded by one extra 
four- byte slot. (In the case of structures 
there is one extra slot for each element of 
the structure. ) If the item is a dynamic 
temporary (temporary type 2) or a CON- 
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TROLLED scalar string, the virtual origin 
slot is relocated by the length of the dope 
vector. 

In all cases the skeleton dope vector 
dictionary entry is pointed at by the 
dictionary entry of the associated item. 

The sorted STATIC chain is scanned from 
the first skeleton argument list entry. 
For each such entry, space is allocated in 
the STATIC INTERNAL control section accord- 
ing to the assembled length of the argument 
list. The offset of each skeleton argument 
list is stored in the 0FFSET1 slot of the 
dictionary entry. 

RDV and DVD entries are found on this 
same scan of the STATIC chain. RDV entries 
are allocated eight bytes; DVD entries are 
allocated the specified length. 

A scan is made of the section of the 
STATIC chain containing STATIC INTERNAL 
arrays. Storage is allocated for each 
array according to its size (computed by 
Phase JK) and the offset of the relative 
virtual origin is relocated to the start of 
the STATIC INTERNAL control section. If 
the array is of the VARYING type and it 
needs a dope vector, then storage is allo- 
cated for the secondary dope vector. The 
number of elements is calculated for INI- 
TIAL arrays and stored in the associated 
INITIAL dictionary entry. 

The section of the STATIC chain contain- 
ing STATIC INTERNAL structures is scanned. 
Storage is allocated for each structure 
according to the size of the structure 
(computed by Phase JK) , and this storage is 
placed on the correct boundary on informa- 
tion supplied by Phase JK. The structure 
member chain for each structure is scanned 
and the relative offset of each member is 
relocated to the start of the STATIC INTER- 
NAL control section. Further, on the 
structure member scan, secondary dope vec- 
tors are allocated when required, and the 
number of elements is calculated for INI- 
TIAL arrays. 


Phase PL 


Phase PL scans the STATIC, AUTOMATIC, 
CONTROLLED, structure, and PROCEDURE block 
chains for variables which require storage 
for their symbol tables and/or data element 
descriptors. 

When a variable is found which requires 
a symbol table, the variable is joined onto 
the chain of symbol variables for the 
particular block. A symbol table dictiona- 
ry entry is created for the variable (see 


Appendix C.7), and a chain is set up to and 
from the dictionary entry for the variable. 
The new dictionary entry is joined onto the 
STATIC chain. 

The size of the symbol table is calcu- 
lated, and its offset from the start of the 
STATIC control section is stored in the 
symbol table dictionary entry. Throughout 
the allocation of STATIC storage a location 
counter is maintained to contain the next 
free location in STATIC; this counter is 
increased appropriately. 

All symbol variables require a DED and a 
branch is taken to the routine which allo- 
cates them. 

When a variable is found which requires 
a DED, it is determined whether or not the 
DED describes a standard type; there are 
eight standard types, which consist of the 
different kinds of real coded arithmetic 
data that can be obtained by the combina- 
tion of the attributes FIXED/FLOAT, 
BINARY/DECIMAL, LONG/SHORT (default preci- 
sions only). 

If the DED is of a standard type, a 
check is made for an identical DED that may 
have already been encountered, so that 
there will be only one allocation of stor- 
age for any one type of standard DED. If 
the DED is not of a standard type, it is 
allocated storage of its own. 

If the variable does not already have a 
symbol table dictionary entry (which con- 
tains space for DED information) , a DED 
dictionary entry is constructed, and the 
offset of the DED in the STATIC control 
section is stored in it. A pointer in the 
new entry in the dictionary entry for the 
variable is also set up. 

When all data element descriptors and 
symbol tables in the compilation have been 
processed, all STATIC storage has been 
allocated and the total size of the STATIC 
control section is placed in a slot in the 
communications region. 


Phase PP 


Phase PP extracts all ON condition 
entries and places them at the head of the 
AUTOMATIC chain. It then extracts all 
temporary variable dictionary entries from 
the AUTOMATIC chain and places them in the 
zone following the ON conditions in the 
chain. 

All dictionary entries which are totally 
independent of any other variable are 
extracted, and also . placed in the zone 
following the ON conditions. 
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The phase then extracts all dictionary 
entries which depend upon some other varia- 
ble in containing blocks or in the zones 
already extracted, and places them in the 
next following zone. Dependency includes 
expressions for string lengths, expressions 
for array bounds, expressions for INITIAL 
iteration factors, and defined dependen- 
cies. This is repeated recursively until 
the end of the chain. If some variable 
depends upon itself, a warning message is 
issued. 

A special zone delimiter dictionary 
entry is inserted between each zone in the 
AUTOMATIC chain (see Appendix C.7). A code 
byte is initialized in the delimiter to 
indicate to Phases PT and QF whether its 
following zone contains any variables which 
require storage (i.e., it does not consist 
entirely of DEFINED items, which do not 
require storage) , and whether or not the 
following zone contains any arrays of VARY- 
ING strings. 


Phase PT 


Phase PT allocates AUTOMATIC storage, 
scans the CONTROLLED chain, and determines 
the size of the largest dope vector. It 
scans the entry type 1 chain, and for each 
PROCEDURE block or BEGIN block it allocates 
storage for a DSA and compiles code to 
initialize the DSA. 

A two-word slot in the DSA is allocated 
for each ON condition in the block, and 
code is compiled to initialize the slot. 
Space for the addressing vector and work- 
space in the DSA is also allocated. 

The AUTOMATIC chain is scanned and dope 
vectors are allocated for the items requir- 
ing them. Code is compiled to copy the 
skeleton dope vector, and to relocate the 
address in the dope vector. 

Storage is allocated for addressing tem- 
poraries type 2 and for addressing con- 
trolled variables, and for the parameters 
chained to the entry type 1. 

The first region of the AUTOMATIC chain 
is scanned and storage allocated for double 
precision variables, single precision vari- 
ables, CHARACTER strings, and BIT strings, 
in that order. 

The first region of the AUTOMATIC chain 
is scanned and storage allocated for 
arrays, relocating the virtual origin. For 
arrays of strings with the VARYING attri- 
bute, the secondary dope vector is also 
allocated and code is compiled to initial- 
ize the secondary dope vector. Correctly 


aligned storage is allocated for struc- 
tures. If a structure contains any arrays 
of strings with the VARYING attribute, the 
storage for the secondary dope vector is 
allocated at the end of the structure. 

A pointer is set up in the AUTOMATIC 
chain delimiter to the second file state- 
ment which has been created. 

The remaining regions of the AUTOMATIC 
chain are scanned and code is compiled to 
obtain a Variable Data Area ( VDA) for each 
region. Code is compiled to copy the 
skeletons into the dope vectors and to 
relocate the addresses in the dope vectors. 
During this pass, storage is allocated for 
DEFINED items. 


Phase QF 


Phase QF, which constructs prologues, 
scans that text which is in pseudo- code 
form at this time with end-of-text block 
markers inserted. 

When a statement label pseudo-code item 
is found, it is analyzed and one of three 
things happens : 

1. The item is saved if it relates to a 
PROCEDURE statement 

2. The item is omitted if it relates to a 
BEGIN or ON block 

3. The item is passed if it relates to 
neither of the first two conditions 

When a BEGIN statement is found, a 
standard prologue of simple form is gener- 
ated, and code is inserted from second file 
statements (if there are any) to initialize 
the DSA, allocate VDAs and initialize VDAs. 

When a PROCEDURE statement is found, it 
is first determined whether it heads an ON 
block or a PROCEDURE block. If it is an ON 
block, a standard prologue (similar to that 
for a BEGIN block) is generated. If it is 
a PROCEDURE block, a specialized prologue 
is generated, dependent on the number of 
entry points, the number of entry labels on 
a given entry point, the number of paramet- 
ers on each entry point, and whether the 
PROCEDURE is a function. 

The code generated by the prologue con- 
struction phase is partly in pseudo-code 
and partly in machine code. The machine 
code (which is delimited by special pseudo- 
code items) has the same form as the code 
produced by the Register Allocation Phase 
(see Appendix D. 7). 
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At the end of the prologue, the 
statement label item saved earlier is 
inserted to mark the apparent entry point. 
Code is produced to effect linkage to BEGIN 
blocks in such a way that general register 
15 contains the address of the entry point, 
and general register 14 contains the 
address of the byte beyond the BEGIN epilo- 
gue. 

At the end of the text, any text blocks 
that are not needed are freed, and control 
is passed to the next phase. 


Phase QJ scans the text for ALLOCATE, 
FREE, and BUY statements. 

On finding an ALLOCATE statement, a 
routine is called which does a 'look ahead' 
for initialization statements associated 
with the allocated variable, e.g., adjusta- 
ble array bounds or adjustable string 
lengths, and places the text references of 
each statement in the dictionary entry 
associated with each statement. 

If the allocated item has a dope vector, 
code is generated to move the skeleton dope 
vector generated by Phase PH into a block 
of workspace in the DSA of the current 
block. 

Any adjustable bound expressions or 
string length expressions are then extract- 
ed from the text references, and the 
expressions are placed in-line in the text. 

Any information required from previous 
allocations (specified by * in the ALLOCATE 
statement) is extracted from the previous 
allocation, and copied into the workspace. 

Code generated by Phase JK to initialize 
multipliers, etc., is extracted and placed 
in-line, after first loading the variable 
storage accumulator with the dope vector 
size. Phase JK generates code to increment 
the accumulator register by the size of the 
item. 

If the item has no adjustable paramet- 
ers, code is generated to increment the 
accumulator by the size calculated at com- 
pilation time. If this size is greater 
than 4,096, Phase JK generates a constant 
dictionary entry, which is used in this 
code. 

If the item has any arrays of varying 
strings, the size of the array string dope 
vector is added to a second accumulator 
register. Code is generated to add the two 
accumulators into the second one, which is 


a parameter to a Library routine. A rou- 
tine is then called which extracts the 
Library call inserted by pseudo-code and 
places it in-line in the text. 

Code is inserted after the Library call 
to initialize the dope vector in workspace 
to point to the allocated storage. Code is 
generated to transfer the dope vector from 
the workspace to the allocated storage. 

Any initial value statements associated 
with the ALLOCATE statement are extracted 
and placed in-line. The initialization 
statements are then skipped, and the scan 
continues. 

The action on encountering a BUY state- 
ment is similar to that for the ALLOCATE 
statement, with the following exceptions: 

1. Bound and string length code is in- 
line, bracketed between BUYS and BUY 
statements - there is therefore no 
look ahead 

2. There is no initial value code 
associated with temporaries 

3. A slot in the DSA is updated with the 
pointer to the allocated storage for a 
temporary 

The action on encountering a FREE state- 
ment is to generate code to load a paramet- 
er register with the pointer to the allo- 
cated storage for the FREE VDA Library call 
inserted by the pseudo- code. 


THE REGISTER ALLOCATION LOGICAL PHASE 


The purpose of the Register Allocation 
Phase is to insert into the text the 
appropriate addressing mechanisms for all 
types of storage, and to allocate physical 
general registers where symbolic registers 
are specified or required as base reg- 
isters. 

This phase comprises two physical phas- 
es, each with a specific function. The 
first. Phase RA, processes the addressing 
mechanisms, while the second phase. Phase 
RF, allocates the physical registers. 


Phase RA 


Phase RA scans the text for dictionary 
references, the beginnings and ends of 
PROCEDURE and BEGIN blocks, and the start- 
ing points of the original PL/1 statements. 
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A dictionary reference, when found, is 
decoded into a word-aligned dictionary 
address and a code. These are used to 
determine what is being referenced. The 
corresponding object time address as an 
offset and base is then calculated. 


If the address required has an offset 
less than 4,096 and a base which is either 
an AUTOMATIC or STATIC data pointer, no 
extra instructions are generated. If this 
is not so, extra instructions are inserted 
in the text stream to calculate the 
required address. The calculation of this 
address is broken down into logical steps 
in a 'step table.' On completion, the table 
is scanned backwards to determine whether 
an intermediate result has been previously 
calculated. The steps which have not been 
previously calculated are then assembled 
into the pseudo-code. 

The compiled code is added either to the 
output stream or to a separate file. The 
code in the separate file is terminated by 
a store instruction to save the calculated 
address. The extra "insertion file" is 
placed in the prologue of the relevant 
block by the next phase. Instructions are 
stored in-line if the referenced item is 
CONTROLLED, if it is a parameter, if fewer 
instructions are required to recalculate 
the base rather than load the stored 
address, or if the reference itself is in 
the prologue. 

All relevant information for PROCEDURE 
and BEGIN blocks is stacked and unstacked 
at the start and end of the blocks respec- 
tively. 

At the start of PL/I statements, code is 
compiled to keep the required PREFIX ON 
slots in the Dynamic Storage Area updated. 
On meeting the pseudo- code error marker, 
the calling sequence to the Library error 
package is generated, and the error marker 
removed. 

If the STMT option has been specified, 
code is generated at the start of each PL/I 
statement to keep the statement number slot 
in the current DSA up to date. 


Phase RF 


Phase RF scans the text for register 
occurrences, implicit and explicit, and the 
start and end of PROCEDURE and BEGIN 
blocks. At the beginning of PROCEDURE and 
BEGIN blocks all relevant information is 
stacked, and is later unstacked at the 
corresponding end. 


Registers are classified as assigned, 
symbolic, or base. 

Assigned registers require the explicit- 
ly mentioned register to be used. If that 
register is not free it is stored. Symbol- 
ic registers may occupy any register in the 
range 1 through 8. An even-odd pair may be 
requested. ‘ Base registers may occupy any 
of registers 1 through 8. 

When a register is requested, a table of 
the contents of registers is scanned, to 
determine whether the register already has 
the required value. If it does, that is 
used. If it does not, and it is not an 
assigned register, a search is made for a 
free register and this is allocated if one 
is found. Should no register be free, a 
look-ahead is performed to determine which 
register it is most profitable to free. 

If a register contains a base it need 
not be stored on freeing. If a register 
contains a symbolic or assigned register, 
it may require to be stored when freed, 
depending upon whether it has had its value 
altered since any storage associated with 
it was last referenced. 

At a BALR (Branch and Link) instruction 
it is insured that all the necessary param- 
eter registers are in physical registers, 
and not in storage. 

No flow trace is carried out by the 
compiler. Therefore, the register status 
is made zero at branch- in and branch-out 
points. An exception is at a conditional 
branch. Here the registers are not freed 
after having been saved- 

Any coded addressing instructions are 
expanded when found in-line. At a specific 
"insertion point" in a prologue, any 
addressing instructions in the "insertion 
file" are brought in and expanded. 


THE FINAL ASSEMBLY LOGICAL PHASE 


The Final Assembly Phase converts the 
pseudo-code output of the register alloca- 
tion phase into machine code, the principal 
functions being the substitution of machine 
operation codes for pseudo-code operations, 
and the replacement of PL/I and compiler 
inserted symbolic labels by offset values. 

Loader text is generated for program 
instructions, DECLARE control blocks, and 
OPEN file control blocks, initial values 
defined in the source program, parameter 
lists, skeleton dope vectors symbol tables, 
etc. INCLUDE cards are generated to load 
those Library routines required for the 
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execution of the object program. ESD and 
RLD cards are generated for external names 
and pseudo- registers. An object listing of 
the code generated by the compiler is 
produced if the option has been specified 
by the source programmer. 


Phase TA 


Phase tA scans the STATIC chain for file 
constants and OPEN control block entries. 


For file constants a DECLARE control 
block is constructed from the file name and 
attributes, while checking the attributes 
for consistency. For file constants with 
the ENVIRONMENT option a Library module is 
called to add environment attributes to the 
DECLARE control block. A dictionary entry 
is constructed, chained from the file con- 
stant, containing the core image of the 
56-byte DECLARE control block. 


For OPEN control block entries an OPEN 
control block is constructed from the 
attributes in the entry, a check is made 
for consistency, and another dictionary 
entry, chained from the OPEN control block 
entry, is constructed. This new entry 
contains the 8- byte core image of the OPEN 
control block. 


The contents of the INCLUDE dictionary 
entry are passed to the Library INCLUDE 
card generation module, and Linkage Editor 
INCLUDE cards are produced for Library 
module names returned by that module. 

The four-byte slot ZPRNAM, in the com- 
munications region, is set to contain the 
first four characters of the first entry 
label of the external procedure, for pur- 
poses of object deck serialization. 


P hase TF 


Phase TF scans the text, assigns offsets 
to compiler and statement labels, and det- 
ermines the code required for instructions 
which reference labels. 

The size of each procedure is determined 
and stored in the PROCEDURE entry type 1. 
A location counter of machine instructions 
is also maintained. 


Phase TJ 


Phase TJ scans the text until no further 
optimization can be achieved in the final 
assembly. 

A location pounter is maintained for 
assembled code, and offsets are assigned to 
labels. 

The size of each procedure is determined 
and stored in the PROCEDURE entry type 1. 
The amount of code required for instruc- 
tions to reference labels is also deter- 
mined, while attempting to reduce this from 
the amount estimated by the first assembly 
pass. 

This phase also attempts to reduce the 
number of Move (MVC) instructions by 
searching for consecutive MVC instructions 
which refer to contiguous locations. 


Phase TO 


Phase TO produces ESD cards for the 
compiled program. It first makes up six 
standard entries for: 

1. program Control Section (CSECT) (SD 
type) 

2. STATIC internal CSECT (SD type) 

3. Invocation count (PR type) 

4. Entry points to Library routines, 
IHESADA and IHESADB (ER type) 

If the external procedure has the MAIN 
option, an entry for a one- word CSECT (SD 
type) is made up. Entries are made up for 
all entry labels in the external procedure 
(LD type). 

The entry type 1 chain is scanned and an 
entry (PR type) is made up for each block 
and procedure. 

The external section of the STATIC chain 
is scanned and entries are' made up for: 

1. Built-in functions and library func- 
tions (ER type) 

2. Files (ER type) 

3. STATIC external variables (SD type) 

4. External entry names (ER type) 

5. Programmer .ON condition names (SD 
type) 
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The CONTROLLED chain is scanned and an 
entry is made up for each CONTROLLED varia- 
ble and task name (PR type). 


Phase TT 


Phase TT scans the text and maintains a 
location counter for assembled code. 


Loader text (TXT) and relocation direc- 
tory (RLD) cards for requested combinations 
of load and punch files are generated. 


Nested procedures are unnested at object 
time by suitable manipulation of the loca- 
tion counter. The offset of each procedure 
from the start of text is left in the 
PROCEDURE entry type 1. 

Compiler labels are numbered for use by 
the object listing phase, and trace infor- 
mation is set up at entry points. 


Phase UR. 


Phase UA generates text for the static 
internal CSECT; initializes a CSECT for 
each static external variable; and, option- 
ally (if the LIST option is present), lists 
all the text produced for the static inter- 
nal CSECT and provides suitable comments. 

The phase first scans to the start of 
the external section of the STATIC chain, 
generating text for entry labels, label 
constants, compiler labels, file attri- 
butes, label variable BCDs, and DEDs for 
temporaries. Simple variables found on 
this scan are used, together with the 
labels, to mark the start of the character 
string section of the chain. 

The phase then scans to the end of the 
external section of the chain, initializing 
address constants for external variables, 
external entry names, built-in and Library 
functions, programmer- defined ON-condition 
names, external files, and label constants. 
Text is made up for the constants pool. 

The third scan of the STATIC chain 
starts at the point left by the previous 
scan, and generates text for dope vector 
skeletons, argument lists, RDVs and DVDs, 
and symbol tables. The scan is terminated 
at the end of the chain. 


Phase UP 


Phase UD initializes those items on the 
STATIC chain not processed by Phase UA. 


The phase first scans to the start of 
the external section of the chain, making 
up text for simple data, and listing label 
variables. 

The second scan starts at the head of 
the character string section of the chain, 
and initializes dope vectors for all static 
internal variables which need them. 

The third scan corresponds in extent to 
the third scan in Phase UA, but generates 
text for arrays, and simple and interleaved 
structures. At the end of this scan, a 
test is made to determine whether the 
external procedure of the program has the 
MAIN option. If so, a one-word CSECT 
(IHEMAIN) is made up, to contain the 
address of the principal entry point to the 
compilation. 

The phase then executes its final scan, 
which extends over the external section of 
the chain, to initialize a CSECT for each 
external variable or external file. 

Finally, any incomplete text and RLD 
cards are punched out, and an END card is 
produced for the compiled program. 


Phase UF 


Phase UF scans the text, and lists, in 
assembly language format, machine instruc- 
tions compiled for the source program. It 
inserts comments in the listing for state- 
ment numbers, statement labels, entry 
points, prologues, and procedure bases. 


THE ERROR EDITOR PHASE 


The Error Editor Phase is entered at the 
end of all compilations. The first phase. 
Phase XA, examines the dictionary and det- 
ermines whether there are any diagnostic 
messages to be printed out. If there are 
none, this phase terminates the compila- 
tion. • If there are diagnostic messages to 
be printed out. Phase XB causes further 
modules to be loaded, which process the 
error dictionary entries and print out the 
appropriate messages. 
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Phase XA 


Phase XA examines the heads of the error 
chains in the first dictionary block, and 
the programmer options which specify the 
severity level of messages required. If 
there are no messages to be printed, this 
phase prints out a terminal message and 
completes the compilation. If diagnostic 
messages are required, the phase loads 
modules XB and YA. It then scans down the 
error message chains and marks each error 
dictionary entry with an indication of 
where the text of the associated message is 
to be found. This information is obtained 
from a table in module XF. Then the phase 
calls module XB. 

The text of all error messages is kept 
in modules XG through YX. The messages are 
ordered, by severity, within these modules. 
Module XA will have listed those modules 
which contain messages required for a par- 
ticular compilation. Module XB loads and 


releases these modules, one at a time, and 
extracts the required messages. Having 
loaded a particular module, the phase scans 
down the associated error message chain in 
the dictionary iTbr error entries associated 
with the module. It accesses the error 
message text and scans it. 

The message to be printed is built up in 
a print buffer in internal compiler code. 
This involves a translation from EBCDIC 
mode, which is used for the message text 
skeleton. The message is completed by the 
insertion of a statement number, an iden- 
tifier, or a numeric value as specified by 
the message dictionary entry. The message 
is segmented, where necessary, to avoid 
spilling over a print line, translated to 
external code, and finally printed out. 

When all error message dictionary 
entries have been processed, module XB 
returns control to phase XA, which passes 
control to module AA for termination of the 
compilation. 
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SECTION 3; CHARTS AND ROUTINE DIRECTORIES 


This section provides a complete guide 
to the compiler logic, in the form of 
flowcharts and associated tables and rou- 
tine directories, arranged in phase order. 


Flowcharts 

The flowcharts are presented at three 
levels of detail — overall, logical phase, 
and physical phase. The overall compiler 
flowchart (Chart 00) points to the logical 
phase flowcharts (Charts 01 through 09), 
each of which appears at the head of the 
set of physical phase flowcharts to which 
it points. The physical phase flowcharts 
point (by means of identifiers placed next 
to the blocks) to the various routines 
used. Entry points to physical phases are 
labeled. 

Where transfer is effected between 
modules within a physical phase, the entry 
label into the entered module is shown as 
follows : 

1. Where the means of transfer is a trans- 
fer vector, an asterisk is shown as the 
label on the flowchart, and a note at 
the foot of the chart states that the 
transfer vector table is located at the 
start of the module. 

2. When transfer is made from a decision 
block, the block representing the entry 
is labeled- 

With the exception of "f all-through" 
branches, all branches from decision blocks 
are labeled where possible. Where the 
branch is actually a branch table, this 
fact is indicated on the chart, and the 
label of the branch table is given. 

In some cases, additional labels have 
been given, to assist in following the 
program flow. 


Tables and Routine Directories 


For each physical phase, a table is 
provided, which lists the operations per- 
formed and identifies the routines and 
subroutines involved. Where applicable, a 
routine directory follows the table. This 
provides an alphanumerically arranged list 
of the routines and subroutines contained 
in the phase, and states their function. 


In some cases, a physical phase compris- 
es more than one module; this means that 
routines contained in different modules may 
be listed together in one routine direct- 
ory. To assist in cross-reference to the 
compiler listings, the following convention 
has been adopted: if a routine is contained 
in a module whose label is not identical to 
that of the phase under discussion, the 
label of the containing module is inserted 
in parentheses after the routine name in 
the directory. 


In the case of a phase sharing a routine 
contained in another phase, the label of 
the containing module is indicated in 
parentheses after the routine name in the 
"Subroutines Used" column. The routine 
will not then appear in the routine direct- 
ory for the phase under discussion, but 
will be found in the routine directory for 
the containing phase. 


Chart and Table Identification 

Identification of tables and physical 
phase flowcharts is based on the phase 
label . 
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Chart 00. Overall Compiler Flowchart 


* * 

* ENTRY *. 

* 


*****B1* ********* 

* 01 * 

*_*_*_*_*_*_*_*_* 

* COMPILE-TIME *X 

* PREPROCESSOR * 

* * 
***************** 


X 

Cl *. 

. * * , 

.* IS IT *. 
*. NO COMP 

*. • * 


*****A 2********** 
* * 
*_*_*_*_*_*_*_*_* 
COMPILER * 
* CONTROL * 
♦INITIALIZATION * 
***************** 


.X* 


**** 01 ********* 

5 RETURN * 

* * 
*************** 


• * 

► • * 

* YES 


*****f)2********** 

* EX FCUTE * 

* FORTY EIGHT * 

* CHARACTER * 

* PREPROCESSOR * 

* * 
* **************** 


*****E2********** 
♦ 02 * 

*-*-*_*_*_*_*_*_* 

* READ-IN * 

* LOGICAL PHASE * 

* * 
***************** 


*****P2 ********** 

* 03* 
*_*_*_*_*_*_*_*_* 

* DICTIONARY * 

* LOGICAL PHASE * 

* * 
***************** 


compiler control performs initialization, 
OVERSEES PHASE LOADING, RESOLVES SYMBOLIC 
TF XT AND DICTIONARY REFERENCES AND CONTROLS 
ALL INTERFACES BETWEEN THE COMPILER AND OS/360, 


THE COMPILE-TIME PRE-PROCESSOR ACCEPTS - INPUT CONT A INI N 
THE COMPILE TIME STATEMENTS OF PL/I AND 
PRESENTS THE COMPILER WITH THE SOURCE TEXT 
RESULTING FROM EXFCUTION OF THESE STATEMENTS. 


THE FORTY EIGHT CHARACTER SFT PREPROCESSOR 
ACCEPTS SOURCE PROGRAMS WRITTEN IN THE FORTY 
FIGHT CHARACTER SYNTAX OF PL/I AND CONVERTS THEM 
INTO SIXTY CHARACTER SYNTAX. 


THE REAO-IN LOGICAL PHASE CHECKS THE SYNTAX OF 
THE SOURCE PROGRAM, REMOVES SUPERFLUOUS 
CHARACTERS AND LEAVES CERTAIN CHAINS IN THE 
PROCESSED TEXT TO AID LATER PHASES. 


THE DICTIONARY LOGICAL PHASE CONSTRUCTS THE 
DICTIONARY OF IDENTIFIERS FROM INFORMATION IN 
DECLARE STATEMENTS AND FROM CONTEXT. IT AL-SO 
REPLACES BCD IDENTIFIERS IN THE TEXT BY REFERENCES 
TO THE DICTIONARY. 


******G1*********** 
PRINT OUT 
* ATTRIBUTE * 
AND CROSS X. 
* REFERENCE * 
TABLE 

************* 


YES .* ATR/XREF 
....*. OPTION ON 
*• . 


♦****H2 ********** 

* 04 * 
*-*-*-*-*-*-*-*-* 
♦PRE-TRANSLATOR * 

* LOGICAL PHASE * 

* * 
***************** 


*****j 2 ********** 

* 05* 
*- *-*-*- *-*_*-*_* 

* TRANSLATOR * 

* LOGICAL PHASE * 

* * 
***************** 


*****K2 ********** 
* 06* 

*_*_*_*_*_*_*_*_* 

* AGGREGATES * 

* LOGICAL PHASE * 

* * 
***************** 


THE PRETRANSLATOR LOGICAL PHASE MANIPULATES THE 
TEXT, REARRANGING I/O STATEMENTS, CREATING TEMPORARY 
VARIABLES WHERE PARAMETERS DO NOT MATCH THEIR 
CORRESPONDING ARGUMENTS, CONVERTING ARRAY AND 
STRUCTURE ASSIGNMENTS TO DO LOOPS, AND REMOVING 
I SUB EXPRESSIONS. 


THE TRANSLATOR LOGICAL PHASE CONVERTS THE 
PL/I SOURCE TEXT TO A COMPUTER-ORIENTED FORM 
CALLED ‘TRIPLES’. GENERIC SELECTION IS ALSO 
CARRIED OUT. 


THE AGGREGATES LOGICAL PHASE MAPS ALL 
STRUCTURES ANO ARRAYS TO ALIGN ELEMENTS 
ON CORRECT STORAGE BOUNDARIES. PSEUDO-CODE 
IS PRODUCED TO CARRY OUT INITIALIZATION AT 
OBJECT TIME. 


***** 
*0A * 
* A2* 
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Chart 00. Overall Compiler Flowchart (cont'd) 


***** 
*0A * 
♦ A2* 


*****A2 *** ******* 

♦ 07* 
*-*-*—*-*-*-*-*-* 

♦ PSEUDO-CODE * 

* LOGICAL PHASE * 

* * 
***************** 


*****$ 2 ********** 
* 08* 
*-*_*_*-*_*_*_*-* 

* STORAGE * 

* ALLOCATION * 

* LOGICAL PHASE * 
***************** 


*****q 2 * ********* 

* 09* 
#_*_*_*_*_*_*_*_* 

* REGISTER * 

* ALLOCATION * 

* LOGICAL PHASE * 
***************** 


*♦**♦□ 2 ********** 
♦ 10 * 

*-*-*_*_#-*_*_*_* 
♦FINAL ASSEMBLY * 

* LOGICAL PHASE * 

♦ * 
***************** 


THE PSEUDO-CODE LOGICAL PHASE PERFORMS MANY 
PASSES OVER THE TEXT. EACH PASS CONVERTS SOME 
OF THE TEXT CONTENT TO A FORM ALLIED TO 
ASSEMBLY LANGUAGE, CALLED PSEUDO-CODE. 


THE STORAGE ALLOCATION LOGICAL PHASE SCANS THE 
DICTIONARY AND ALLOCATES OBJECT TIME STORAGE FOR 
ALL IDENTIFIERS, TEMPORARIES AND ADMINISTRATIVE 
REGIONS. PROLOGUES ARE CONSTRUCTED. 


THE REGISTER ALLOCATION LOGICAL PHASE PERFORMS AN 
ANALYSIS OF OBJECT TIME ADORE SS I R I L I TY AND ALLOCATES 
PHYSICAL REGISTERS IN PLACE OF SYMBOLIC ONFS. 


THE FINAL ASSEMBLY LUGICAL PHASE ESTABLISHES 
OBJECT TIME BRANCH ADDRESSES AND COMPLETES 
TRANSLATION TO MACHINE COOE. LOADER TEXT IS 
PRODUCED. 




. *. 

E2 *. 

.«■ IS *. **** 

LIST *. NO * * 

OPTION ON .*.... X* G2 * 


**** 




* PRODUCE * 
♦OBJECT LISTING ♦ 


*************** 

♦ ♦♦♦ 

* * 

* G2 * 

* * 

**** 


• * 


G2 


► *• 


*****H2 ********** 
* * 

♦ PRINT OUT * 

* DIAGNOSTIC * 

* MESSAGES * 

♦ * 
***************** 


****j2********* 

* RETURN TO * 
♦CALLING PROGRAM* 

♦ * 
*************** 
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Chart AA. Resident Control Phase Logic Diagram (Modules AA through AM, and JZ) 


1 ****♦♦**♦ 

* ENTRY FROM * 
♦CALLING PROGRAM*. 

* # 


ZINIT 

*****A2********** 

* LOAD * 

♦INITIALIZATION * 

...X* PHASE ♦. 

* IEMAB * 


*** 4c ******* **$**«: 


OPNFILES 

4c ****a 3* ********4 

* OPEN * 

♦SYS IN , SYSPRINT* 

► • • X*SYSUT1 t SYSUT3 * ♦. 

♦ GET STORAGE t ETC* 


***************** 


* BJILO FIRST * 
•X* HALF OF PHASE ♦ . 

* DIRECTORY * 

* * 
***************** 


* LOAD IEMAF * 
, X * AND PROCESS * 

* OPTIONS LIST * 

* * 
***************** 


*****Q1** ******** 

* * 

* * 

* RELEASE IEMAF *. 

* * 

* * 

***************** 


***************** 


***************** 


* PRINT * 

* LIST OF *. 

* OPTIONS * 

* * 
***************** 


*****C3********** 

* RELEASE * 

♦INITIALIZATION * 

.X* PHASE *. 

* IEMAB * 

* * 
***************** 


LODFST 

*****£ 4* ********* 

♦ LOAD ♦ 

♦ IEMAM TO ♦ 
...X* MARK LATER * 

♦ PHASES ♦ 


***************** 


****** 2 ********** 


***************** 


*****E2^^ ******* 

* IEMXX* 

* — *-*-*—*-*—*— *— * 

♦ CALL A * 

♦ COMPILER ♦ 

♦ PHASE ♦ 
***************** 


*****F 3 ********** 

♦ EXECUTE ♦ 

* IEMAC TO * 

OPEN SYSUT3 *• 

♦ FOR INPUT * 

* ♦ 
***************** 


.X* 


X 

G2 *. 


*****G 3 ********** 

♦ EXECUTE ♦ 

♦ IEMAG TO * 

.X* TIDY UP AFTER *. 

♦ REAO-IN * 

♦ * 
***************** 


NO 

• *• 

G4 *. 

• * *. 

.* WAS IEMAC *. 
.X*. LOADED .< 




♦• 


• * 


♦****Q5 ********** 


***************** 


.* END *. 

.* OF FIRST *. YES 
*. HALF PHASE .*.... 
*. LIST .* 


*****H 3 ********** 

* EXECUTE * **** 

* I EM JZ TO * * * 

.X* BUILD SECOND *....X* D2 * 

* HALF PHASE * * * 

* DIRECTORY * **** 

***************** 


. *. 

K2 *. 

. * *. 

NO .* : WAS *. 

...*. RETURN TO . 
*. ZEND .* 
*• .* 

*. .* 


***** 
*AA * 
* K3* 


ZEND X 

**»**« 3 * ********* 

* CLOSE DATA * 

* SETS, TIDY * 
...X* UP, PICX UP *. 

* SEVERITY CODE * 


***************** 


****K.4 ********* 

* RETURN TO * 
, X*CALL I NG PROGRAM* 

* * 
*************** 
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Table AA. Module AA Compiler Control Resident Control Phase 

r t t 

Main Processing 

Statement or Operation Type 


Routine 


Routine Called 


■H 


Initializes the compiler 

Parameters passed : General register 1 points at 


ZINIT 


the passed parameters 
Entry to OS/ 360 ; GETMAIN(R) , TIME, LINK, SPIE 


LOADW, ABORT 


Converts an absolute address to a dictionary 
reference 

Parameters passed : PARI — any reference to the 
block containing the absolute address; 

PAR2 — the absolute address to be converted 
Parameters returned : PARI — the required 
dictionary reference 
Entry to OS/360 : None 


ZDABRF 


CONSLD, ZUERR, ABORT, 
BLKERR 


Converts a dictionary reference to an absolute 
address 

Parameters passed : PARI — the dictionary 


ZDRFAB 


reference 

Parameters returned: PARI — the absolute 


address 

Entry to OS/360 : None 


CONSLD, TRYMRD, BLKERR 


H 


Makes an unaligned dictionary entry and 
returns an absolute address 

Parameters passed : PARI — address of entry to 

be made; PAR2 — length of entry 

Parameters returned : PARI — address of entry 


ZNALAB 


in dictionary 
Entry to OS/360 : None 


ZDRFAB, ZDABRF, TRYMRD, 
ZUPL, ZUERR, ABORT, 
CONSLD 


Makes an aligned dictionary entry and returns 
an absolute address 

Parame t ers passed : PARI — address of entry to 


ZDICAB 


be made; PAR2 — length of entry 

Parameters returned: PARI — address of entry 


in dictionary 
Entry to OS/ 360 : None 


ZDRFAB, ZDABRF, TRYMRD, 
ZUPL, ZUERR, ABORT, 
CONSLD 


Makes an unaligned dictionary entry and 
returns dictionary reference 

Parameters passed : PARI — address of entry to 


ZNALRF 


be made; PAR2 — length of entry 
Parameters returned : PARI — reference of entry 


in dictionary 
Entry to OS/360 : None 


ZDRFAB, ZDABRF, TRYMRD, 
ZUPL, ZUERR, ABORT, 
CONSLD 


Makes an aligned dictionary entry and returns a 
dictionary reference 

Parameters passed : PARI — address of entry to 


ZDICRF 


be made; PAR2 — length of entry 
Parameters returned: PARI — reference of entry 


in dictionary 
Entry to QS/360 : None 


ZDRFAB, ZDABRF, TRYMRD, 
ZUPL, ZUERR, ABORT 
COSLD 
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Table AA. 
r 


Module AA Compiler Control Resident Control Phase (cont'd) 


h 


Statement or Operation Type 


T T 

Main Processing 
Routine 


Routine Called 


Finds a new text block. Optionally chains the 
new block to the current block and changes the 
status of the current block 

Parameters passed : PARI — optionally, a 
reference to the current block. PAR2 -- a 
status and chain indicator 

Parameters returned: PARI — reference to new 


ZUTXTC 


block; PAR2 — a status and change indicator 
Entry to OS/360 : None 


CONSLT, TRYMRT, ZUERR, 
ABORT, BLKERR 


Finds the next text block in the chain. 
Optionally, changes the status of the current 
block 

Parameters passed : PARI — a reference to the 
current block; PAR2 — a status indicator 
Parameters returned: PARI — reference of the 


ZCHAIN 


next block in the chain 
Entry to QS/360 : None 


CONSLT, TRYMRT, BLKERR 


Changes the status of the referenced text block 
Parameters passed : PARI — a reference to the 


ZALTER 


block 

Entry to QS/360 : None 


CONSLT, BLKERR 


Converts a text reference to an absolute 
address and optionally, does not change 
status of the block. 

Parameters passed : PARI — reference to be 


ZTXTAB 


converted and option indicator bit 
Parameters returned: PAR2 — the absolute 


address 

Entry to QS/360 : None 


CONSLT, TRYMRT, BLKERR 


Converts an absolute address to a text 
reference 

Parameters passed : PARI — a text reference to 


ZTXTRF 


the block containing the absolute address ; 

PAR2 — the address to be converted 
Parameters returned : PARI — the required text 


reference 

Entry to QS/360 : None 


CONSLT, BLKERR, ZUERR, 
ABORT 


Enters message 'REFERENCED BLOCK NOT IN USE* 
into dictionary and then terminates compilation 

Entry to QS/360 : None 


BLKERR 


ZUERR, ABORT 


Supplies storage space for scratch purposes. 
Allocation is made in 512 bytes at a time 

Parameters passed : PARI — a count of the 


ZUGC 


number of 512 byte blocks required 
Parameters returned: PARI address of the 


allocated storage 
Entry to QS/360 : None 


TRYMRT, ZUERR, ABORT 
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Table AA. 
r 


Module AA Compiler Control Resident control Phase (cont'd) 


Statement or Operation Type 


T T 

Main Processing 
Routine 


Routine Called 


Releases scratch storage allocated by ZUGC 
Parameters passed : PARI — a count of the 


ZURC 


number of entries to ZUGC to be released 
Entry to OS/360 ; FREEMAIN if storage being 


replaced is outside the guaranteed 4k block 


ZUERR, ABORT 


Deletes a list of loaded phases 

Parameters passed ; PARI — address of list of 


RELESE 


phases to be deleted 
Entry to OS/360 : DELETE 


ZUERR, ABORT 


Deletes a list of loaded phases and passes 
control to either the next requested phase or 
the next named phase 

Parameters passed : PARI — address of list of 


RLSCTL 


phases to be deleted; PAR2 — address of name 
of phase to which control is to be given, or 
zero 

Parameters returned ; PARI — load point of new 


phase 

Entry to OS/360 ; DELETE, LOAD(EPLOC), LOAD(DE) , 


LINK 


Module AD if inter- 
phase dumping is req- 
uired; Module AE if it 
is end of Read-In 
Phase; ZUERR, ABORT 


Loads the required phase and returns control to 
the caller. The phase may be loaded again 


Parameters passed : PARI — address of name of 


LOADX 


phase to be loaded 
Parameters returned : PARI — load point of 


phase 

Entry to OS/360 : LOAD (DE) 


ZUERR, ABORT 


Marks phases as * wanted* and 'not wanted' 


Parameters passed : PARI — address of 


REQEST 


list of phase names to be marked 'wanted;* 
PAR2 — address of list of phase names to be 
marked 'not wanted* 

Entry to QS/360t None 


ZUERR, ABORT 


Inserts diagnostic message in the dictionary 


Parameters passed ; PAR5 — numeric parameter 


ZUERR 


(if any) ; PAR6 — message number; PAR7 — add- 
ress of text (if any) or dictionary reference 
(if any) ; PAR8 — length of text (if any) 

Entry to OS/360 : None 


ZDRFAB, ZDICRF. ZDICAB 


Takes a dictionary reference and points at the 
relevant slot in the dictionary block control 
area (DSLOTS) 

Parameters passed : PARI — dictionary reference 
Parameters returned; Address of slot in GRA 


CONSLD 


Entry to QS/360 : None 


l 


None 
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Table AA. Module AA Compiler Control Resident Control Phase (cont'd) 


Statement or Operation Type 


T T 

| Main Processing! 

1 Routine 


Routine Called 


Takes a text reference and points at the 
relevant slot in the text block control area 
(TSLOTS) 


Parameters passed : PARI — text reference 
Parameters returned ; Address of slot in GRA 
Entry to OS/360: None 


CONSLT 


Allocates space for a text block 

Parameters passed : Relative track address of 
the block (if block is on disk) in RDTTR. 
Otherwise RDTTR is zero 

Parameters returned : Address of block in GRO 
Entry to OS/360 : GETMAIN(VC) if storage 
available- OPEN if no space left for text 
blocks 


TRYMRT 


DFREE, TFREE, ZUPL, 
ABORT 


Allocates space for a dictionary block 

Parameters passed : Relative track address of 
block (if block is on disk) in RDTTR. Other- 
wise RDTTR is zero 

Parameters returned : Address of block in GRO 
Entry to OS/360 : GETMAIN (VC) if storage 
available- Open if no space left for diction- 
ary blocks 


TRYMRD 


DFREE, TFREE, ZUPL, 
ABORT 


Investigates the dictionary block control used 
(DSLOTS) , to find which block can be written 
onto disk to make space for a different block 
in storage 


Parameters passed : Relative track address of 
block required in storage in RDTTR. RDTTR=0 if 
a block is being created 

Parameters returned : Address of block in 
storage in BLOKAD 
Entry to OS/360 : None 


DFREE 


CONSLD, ZUERR, ABORT, 
WDREAD, WRTRD, WDWRIT 


Investigate the text block control area 
(TSLOTS) , to find which block can be written 
onto disk to make space for a different block 
in storage 


Parameters passed : Relative track address of 
block required in storage in RDTTR. RDTTR=0 if 
a block is being created 
Parameters returned : TFREE 
Entry to OS/360: None 


TFREE 


CONSLD, ZUERR, ABORT, 
WDREAD, WRTRD, WDWRIT 


Create space in storage by writing on disk 

Parameters passed : RDTTR=0, BLOKAD contains 
address of block that can be written out 
Parameters returned : BLOKAD contains address of 
block in storage that is now available 
Entry to OS/360 : WRITE ( BSAM) , CHECK, NONE 


WDWRIT 


WRITEX 
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Table AA. Module AA Compiler Control Resident Control Phase tcont'd) 

r r t 

(Main Processing 

Statement or Operation Type I Routine 


Routine Called 


Writes a block onto disk and reads a second one 
into its place in storage 


Parameters passed : RDTTR contains relative 
track address of block to be read. BLOKAD 


WRTRD 


contains address of block to be written 
Parameters returned: NOTTR contains relative 


track address of block in storage 
Entry to OS/ 360 : WRITE C BS AM) , CHECK, NOTE 


Reads a block from disk into space already 
available in storage 


Parameters passed : RDTTR holds relative track 
address of block to be read. BLOKAD holds 


WDREAD 


address of space in storage 

Parameters returned: BLOKAD holds address of 


block in storage 
Entry to OS/ 360 : None 


READX, WRITEX, ZUERR, 
ABORT 


READX 


Writes a block onto disk 


Parameters passed : TEMP 4 holds relative track 


WRITEX 


address of space on disk 
Entry to OS/ 360 : XDAD(WI), WAIT 


ZUPL, ZEND 


Reads a block from disk 


Parameters passed : TEMP4 holds relative track 


READX 


address of block on disk 
Entry to OS/ 360 : XDAP(RI), WAIT 


ZUPL, ZEND 


Reads a record from SYSIN 


Parameters passed : PARI — address of input 


ZURD 


area 

Parameters returned ; PAR2 — record length 


Entry to OS/36 0 : GET MOVE (QSAM) 


I— 


None 


Puts a record out to SYSPRINT. Pagination 
(paging action) is performed automatically 

Parameters passed : PARI — address of output 
buffer 

Entry to OS/360 : PUT LOCATE (QSAM) 


ZUPL 


Puts a record out to SYSLIN 

Parameters passed : PARI — address of output 


ZULF 


record 

Entry to OS/360 : PUT LOCATE (QSAM) 


PLERRX 


LFERRX 


Puts a record out to SYSPUNCH 


Parameters passed : PARI — address of output 


ZUSP 


record 

Entry to OS/360 : PUT LOCATE (QSAM) 


SPERRX 
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Table AA. Module AA Compiler Control Resident Control Phase (cont'd) 
r 


Statement or Operation Type 


T T 

Main Processing 
Routine 


Routine Called 


Deletes currently loaded phases and passes 
control to the Error Editor 

Entry to OS/360 : LOAD(EPLOC) if dump option 


Z ABORT, ABORT 


specified 


Module AD if dump op- 
tion specified; RLSCTL 


Picks up completion code and returns control to 
the program that called compiler 


ZEND 


Entry to OS/360 ; TIME, FREEMAIN, DELETE 


ZUPL 


Handles all program checks 

Parameters passed : APRINT holds address of 
routine wanting to handle interrupt. ARMASK 
holds mask indicating which interrupts it is 
desired to handle 

Entry to QS/360 : None 


PIH 


ZUERR 


Table AA1 . Module AA Routine/Subroutine Directory 


r T - 

| Routine/Subroutine | 


Function 


ABORT 

BLKERR 

CONS LD 

CONSLT 

DFREE 

LFERRX 

LOADX 

LOADW 

PIH 

PLERRX 

RDERRX 

READX 

RELESE 

REQEST 

RLSCTL 


Deletes currently loaded phases, passes control to error editor. 

Enters message "REFERENCED BLOCK NOT IN USE", then terminates compi- 
lation. 

Takes dictionary reference and points at relevant slot in dictionary 
control block area (DSLOTS). 

Takes text reference and points at relevant slot in text block con- 
Itrol area (TSLOTS) . 

Finds dictionary block which can be written on disk to make room for 
a new block in storage. 

Marks error on SYSLIN data set. 

Loads required phase and returns control to caller. The phase may 
be loaded again. 

Loads required phase and returns control to caller. 

Handles all program checks. 

Prints record on SYSPRINT data set. Pagination (paging action) is 
performed automatically. 

Marks error on SYSIN data set. 

Reads a block from disk. 

Releases all loaded phases. 

Marks phases as 'wanted' or 'not wanted.' 

Releases all loaded phases and pass control to next required or 
named phase. 
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Table AA1. Module AA Routine/Subroutine Directory (cont*d) 

Function 

Marks error on SYSPUNCH data set. 


r T - 

1 Routine/Subroutine | 


f 

| SPERRX 

T 

J TFREE 


| TRYMRD 


| TRYMRT 


| WDREAD 


| WDWRIT 


| WRITEX 


| WRTONL 


| WRTRD 


| Z ABORT 


| ZALTER 


| ZCHAIN 


| ZDABRF 


| ZDRFAB 


| ZDICAB 


| ZDICRF 


J ZEND 


| ZINIT 


| ZNALRF 


| ZNALAB 


| ZTXTAB 


| ZTXTRF 


j ZUERR 


| ZULF 


| ZUSP 


| ZURD 


1 ZUGC 


| ZURC 


| ZUPL 


| ZUTXTC 

X 


Finds text block which can be written on disk to make space for a 
new block in storage. 

Allocates space for a dictionary block. 

Allocates space for a text block. 

Reads a block from disk into storage. 

Creates space in storage by writing a block on disk. 

Writes a block on disk. 

Writes on last block on disk. 

Writes a block onto disk, reads a second one into its place in stor- 
age. 

Deletes currently loaded phases and passes control to error editor. 
Changes status of referenced text block. 

Finds next text block in chain. 

Converts an absolute address to a dictionary reference. 

Converts a dictionary reference to an absolute address. 

Makes an aligned dictionary entry and returns absolute address. 

Makes an aligned dictionary entry and returns dictionary reference. 
Picks up completion code and returns control to calling program. 
Initializes the compiler. 

Makes unaligned dictionary entry and returns dictionary reference. 
Makes unaligned dictionary entry and returns absolute address. 
Converts text reference to an absolute address. 

Converts absolute address to a text reference. 

Inserts diagnostic message in dictionary. 

Puts record out to SYSLIN data set. 

Puts record on to SYSPUNCH data set. 

Reads a record from SYSIN. 

Supplies storage space for scratch purposes. 

Releases scratch storage. 

Puts record out to SYSPRINT data set. 

Obtains a new text block. 
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Table AB. Module AB Compiler Control Initialization 

r t r 

Main Processing 

Statement or Operation Type 


Routine 


Routine Called 


1 


Issues a BLDL macro-instruction on all phases 
in compiler, and constructs a compacted phase 
dictionary 

Entry to OS/360 : BLDL 


PROPEN I None 


Prints initial heading and performs scan of 
option list. Default options are taken where 
necessary 


^OPTPROC ^None 


^ 


Parameters passed : General register 1 points to 


option list passed at invocation time 
Entry to OS/ 360: TIME, PUT LOCATE (QSAM) 


Makes the initial space allocation for text and 
dictionary blocks. Sets up communication 
region 

Entry to OS/360 ; GETMAIN (R) 


OPENR 


None 


+ 


Opens spill file if text and dictionary blocks 
are IK 

Entry to OS/ 360 : OPEN 


OPENSP 


None 


4 - 


Obtains the guaranteed 4K of scratch storage 
Entry to OS/360 ; GETMAIN (R) 


GETSCR 


None 


Loads intermediate file writer (Module AC) . 

Sets buffer sizes for SYSUT3 and opens the data 
set 

Entry to OS/360 : LOAD(EPLOC), OPEN 


NO DUMP 


ZUPL (AA) 


Prints out list of options for this compilation 
Entry to OS/360 : None 


NDMP 


ZUPL (AA) 


Enters error messages generated when SYSIN, 
SYSPRINT opened 

Entry to OS/360 ; None 


PJ13 


ZUERR (AA) 


4 


Reads first card and stores. Uses as heading 
if required 


RDCD 


ZURD, ZUERR, ZUPL 
(all in AA) 


Return to pre-initializer in IEMAA 


ABOUT 


None 
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Table AB1. Module AB Routine/Subroutine Directory 


r T - 

| Routine/ Subroutine j 


Function 


ABOUT 

GETSCR 

NDMP 

NODUMP 

OPENR 

OPENS? 

OPTPROC 

PJ13 

PROPEN 

RDCD 


Returns control to pre-initializer in Module AA. 

| Obtains scratch storage. 

Prints lists of options for current compilation. 

Loads intermediate file writer module AC. Sets buffer sizes for 
SYSUT3 and opens data set. 

Makes initial space allocation for text and dictionary blocks. Sets 
up communications region. 

Opens spill file. 

Prints initial heading and performs scan of option list. 

Enters diagnostic messages generated when SYSIN and SYSPRINT data 
sets are opened. 

Issues BLDL macro-instruction and constructs phase directory. 

Reads first card. 


Table AC. Module AC Compiler Control Intermediate File Control 
r 


T T 

Main Processing 
Routine 


Statement or Operation Type 


j. 

| Writes a record onto SYSUT3 

I 

I Parameters passed : PARI — address of output 
j record; PAR2 — length of record 
j Entry to OS/360 ; PUT LOCATE (QS AM) 

h 

| Link to file switching routine (Module AG) 

I 

I Entry to OS/36 0 : LINK 

L 


Routine Called 


-H 


IEMAC 


None 


ENDED 


None 


Table AD. Module AD Compiler Control Interphase Dumping 

r T r 1 

| | Main Processing) | 

| Statement or Operation Type | Routine j Routine Used | 

j. 1 1 1 

| Debugging aids. This routine contains a dump- J IEMAD | ZDRFAB, ZTXTAB, ZUPL | 

| ing program which is invoked by use of the DUMP | | (all in AA ) , \ 

| option | | DUMP | 

l x x J 


Table ADI. Module AD Routine/Subroutine Directory 

r t 7 1 

| Routine/Subroutine | Function | 

\ + 1 

| DUMP | Converts contents of specified area of main storage to hexadecimal, | 

j {prints the result. j 

L X J 
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Table AE. Module AE Compiler Control Clean-Up Phase 

r t t 

Main Processing 

Statement or Operation Type 


Routine 


Routine Called 


Input and intermediate file control. Current 
input file is closed and IEMAC is deleted if 
present 

Entry to OS/360 : CLOSE ( current input file), 
DELETE 


IEMAC 

(Module AC) 


None 


Opens SYSLIN and SYSPUNCH data sets if required 
Entry to OS/36 0 : OPEN 


NOT48 


ZUERR (AA) 


Expands the number of blocks in storage to four 
text and four dictionary, if running with the 
44k size option 

Entry to OS/360 ; GETMAIN 


NOTDCK 


None 


Table AEl. Module AE Routine/Subroutine Directory 

r r 

| Routine/Subroutine 1 Function 

f + 

| NOT48 | Opens SYSLIN and SYSPUNCH data sets as required. 

I I 

| NOTDCK | Expands number of blocks in storage- 

L X 


1 

I 

A 


j 


Table AF. Module AF Compiler Control Sysgen Options 


Function 


■ r 

1 

4 

Subroutines 

This module contains no executable instructions. 

It is 

1 

| None 


generated at SYSGEN time and passes the default 
and values to the compiler 

options 

1 

1 

. x _ _ 



Table AG. Module AG Compiler Control Intermediate File Switching 



Function 

— T — - - 

1 

I 

Subroutines 

Switches SYSUT3 from an 

Entries to OS/360: OPEN 

output file to an input file 

and CLOSE 

T 

| None 

1 

1 

x _ _ 



Table AM. Module AM Compiler Control Phase Marking 



Function 

- 1 T 

j Main Processing) 

| Routine j 

_L _L 

Routines 

Used 

Marks all : 
all phases 
invocation 

non-optional phases and 
influenced by compiler 
time options 

T 

j IEMAM 

1 

1 

_X _ 

T 

j REQEST, 

1 

1 

— X - 

RLSCTL (both 

in AA) 


i 

I 

I 

A 


j 
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Chart 01. Compile-time Processor Logical Phase Flowchart 


****AX********* 

* ENTRY * 

* FROM PHASE AA ♦ . 
► * 

******* * * *♦* * * ♦ 


**##*a 2 ********** 
♦RESIDENT AS* 

*-*-*- *-*_*_*-*-* 
,X* CONTROLS * 

* LOADING OF * 

♦ PHASES AV » BC i BG* 
***************** 


*****B2 ********** 
♦INITIALIZN AV* 
*_*_*_*_*_*_*_*_* 
* INITIALIZES * 
♦COMM# REGION E * 
♦SCRATCH STORAGE* 
***************** 


*****Q2 ********** 
♦INITIAL SCAN BC^ 
*-*-*-*•*-*_*_*_* 
• • X* INITIAL SCAN ♦ 
♦AND TRANSLATION* 
* * 
***************** 


***** 02 ********** 
♦FINAL SCAN BG^ 
*_*_*_*_ *— *-*-*_* 
♦FINAL SCAN AND * 

♦ REPLACEMENT * 

* PHASE * 

***************** 


E 2 


> *. 


*. 


.* HAS *. 

.* A % BEEN *. 
. ENCOUNTERED . 
♦IN INCLUDED* 
♦.TEXT .* 

*. .* 

* NO 


*****F2********** 
♦DIAGNOSTIC BM* 
*-*-*-*-*- *-*-*-* 

* DIAGNOSTIC * 
♦MESSAGE CONTROL* 

* PHASE * 
***************** 


***** 02 ********** 

* PRINTS * 

* DIAGNOSTICS * 

* IN DICTIONARY * 

* * 
###****«**##***** 


** ***H2 *♦♦#♦♦*♦♦♦ 
♦CLEAN-UP BW^ 

*_*_#_*_ *_*_*_*_* 

♦ RE-INITIALIZE ♦ 

♦ COMM. REGION * 

♦ AND TABLES * 
#***###**£*$:&£*#* 


*02 * 
* Al* 
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Chart AS. Phase AS Overall Logic Diagram 


****A2 ********* 

* ENTRY * 

* FROM * 

* PHASE AA * 
*************** 


AORP X 

*****32********** 

* PHASE AV * 
*-*-*-*-*-*-*-*-* 

* INITIALIZE * 

* POINTERS AND * 

* SWITCHES * 
***************** 


LOADW 
YAG2 X 

****#C 2 ********** 

* PHASE. BC * 
*_*-*-*-*_*-*_*_* 

* . LOAD * 

* PHASE BC INTO * 

* STORAGE * 
***************** 


X 

***** 
*AV * 
* A2* 
* * 


**** *Q2 * ** ** ***** 
* * 

* USE PHASE BC * 

* TO PROCESS * 

* •INPUT* TEXT * 

* * 
***************** 


X 

*****£ 2 ********** 

* TURN * 

* INCLUDE-SW * 

* OFF 9 * 

* * 
***************** 


LOADW X 

* * * F 2 * ** **** *** 

* PHASE BG * 

* — * — * — * — *— * — 4c 

* LOAD * 

* PHASE BG INTO * 

* STORAGE * 
***************** 


*****G2 ********** 
* * 

* USE PHASE BG * 

* TO PRODUCE * 

* OUTPUT * 

* * 
***************** 


X 

INCTST .*• 

H2 *. 

* * * . 

.* IS *. YES 

*. INCLUDE-SW 
*. ON .* 

*. .* 

*. , * 

* NO 


X 

**** J 2********* 

* RETURN * 

* TO * 

* PHASE AA * 
* ************** 
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Chart AV. Phase AV Overall Logic Diagram 


* INITIALIZE * 

♦COMMUNICATIONS *. 

♦ REGION * 


♦SCRATCH STORAGE* 


* MOVE TOKSCN ♦ 

♦ TABLE INTO * 
♦SCRATCH STORAGE* 


* AREA FOR USER * 


**♦**£ 3 ********** 


***** 1=3 ********** 


****** 3 ** ******** 
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Chart BC. Phase BC Overall Logic Diagram 

***** 
*BC * 
* A3* 
* * 

* 


***************** 


B3 


* , 


*. 


YES •* IS *. 
.♦..*. INCLUDE-SW .* 
*• ON •* 

*. •* 

*. •* 

* NO 

**** 


* C3 *• X 


**** 

FINDPC 

*****£ 3********** 

* PUT CHARS * 

* INTO TEXT * 

* BLOCKS UNTIL * 
♦HIT NEXT MACRO * 

* STATEMENT * 

***************** 


**** 

STB3 X 

****** 2 ********** 


***************** 


NO ♦* HIT *• 
END-OF-FILE • 

*. .* 


*****g ^********** 


***************** 


* PROCESS * 

* PROCEDURE * 

* STATEMENT * 

* * 
***************** 


LI AZ 
YES .*’ 


.*• 

E3 *. 

.* *. 

.* IS *. NO 
*. INCLUDE-SW .*... 
ON 


*. 


.* 


L1A3 X 

***«*F 2 ********** 

* PROCESS * 

* LABELS * 

* ATTACHED TO * 

* STATEMENT * 

* * 
***************** 


L1EAP 

♦****G2 ********** 

* ENCODE STMNT * 
*-*-*-*-*-*-*-*-* 
♦USES AND TESTS * 

* A PUSH DOWN * 

* STACK * 

***************** 


**«**p 3********** 

* ADD CODE * 

♦TO CALL CLEANUPS 

* TO TEXT ♦ 

♦ BLOCK ♦ 

♦ ♦ 
***************** 


***** 
*BG * 
* B3* 


*****E4*********< 

* PUT * 

* END-OF-TEXT * 

.X* CODE INTO * 

* TEXT BLOCK * 

* * 
♦A*************** 


***** 

*BG * 

* B3* 


.* *• 

.♦ WAS IT *. YES 
*. THE END FOR 
*. PROC .* 

♦ . .♦ 

*• .* 

♦ NO 


J2 *. 

**** .* * m 

♦ ♦ YES IS ♦. NO 

♦ 02 *X.*.«*. PROC SW ON 

♦ * *. .* 

**♦♦ * . .* 


*****H3********** 


***************** 


• X. 

X 

**** 
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Chart BG. Phase BG Overall Logic Diagram 


***** 
*BG * 
* B3* 


* END OF TEXT * 


***************** 


• * *. 

NO .* IS *. 
LEV-BIT Q 


• • 


PH2SCN X 

* * 



***** 33 ********** 




♦GET NEXT TOKEN * 




*-*-*-*-*-*-*-*-* 




♦ STARTS FROM * 




♦TOK-PTR TO GET ♦ 




* NEXT TOKEN ♦ 




***************** 




X 




.*• 




C3 ♦. 




.* *. 




.* *. 




♦. WHAT IS IT .♦ 




*. •* 




*. .* 








♦ 



DA I DEN X 

DAMAC X 



♦****D2 ********** 

*****Q3 ********** 



* * 

* * 



* * 

♦ INTERPRETIVE * 



* IDENTIFIER * 

♦ MACRO CODE ♦ 



* * 

* * 



* * 

* * 



***************** 

***************** 



. • * 
*• • * 

♦ YES 


#*** 1 = 1 ***$**#** 

* RETURN * 

* TO CALLER * 

X 4 

*************** 


*****G1** ******** 


***************** 


DAEOB X 

*****m** ******** 

* SET LEV-BIT, * 

* TOK-PTR FROM * 

* STACK TOP * 

* THEN POP * 

* STACK * 

***************** 


.* 

. . * 

* NO 


PROCEDURE *. NO 
NAME .♦... 

. .♦ 


OAPENT X 

***«*H2 ********** 

* DO * 

* REPLACEMENT * 

* ON ARGS. GET * 

* VALUE FOR * 

* PROCEDURE * 

***************** 


**#*#j2* ********* 

* PUSH LEV-BIT, * 
A TOK-PTR AND ♦ 

* VALUE ONTO * 

* STACK * 

* * 
***************** 


*****K2********** 


LEV-BIT = 1 


NO i* IS ♦ . 
...*. ACTION CALL .♦ 
♦ . CLEANUP .♦ 

♦ . .♦ 


DACLN X 

*****F3********** 

* CALL CLEANUP * 
*-*-*-*-*-*-*-*-* 

* THROW AWAY * 

* INCLUDED TEXT * 

* SET TOK-PTR * 
***************** 


INTPRT 

«****H 3* ********* 

* INTERPRET * 

*-*-*-*-*-*-*-*-* 

..X* MAY SET * 

* TOK-PTR * 

* * 
***************** 


J3 




*• 


.* WAS *. NO 
*. IT INCLUDED 

*. .* 

4. , * 

*• •* 

* YES 


****** 3 ********** 


* D* * 

* * 
**** 


OTHER 

*************** 


*****E4********** 

* CALLOUTPUT * 
*-*-♦-*-*-*-*-*-* 

* * 

♦ OUTPUTS TOKEN * 

* ♦ 
***************** 


* PERCENT SIGN * 


***************** 


F5 


*• 


***** 
*BC * 
* A3* 


YES .* IS *. 

INCLUDE-SW .* 
*. ON .* 

*• •* 

*. . * 

* NO 


X 

***** 
*BM * 
* Al* 


***************** 


***************** 
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Chart BM. Phase BM Overall Logic Diagram 




**** ******* ****** 


XAC1 

4444 *A2 44 4* *444 4 4 

* ESTABLISH * 

* LEVEL OF * 

...X* DIAGNOSTIC * 

* PRINT OUT * 


4*4 4 4444*444444* * 


*****£ 1 ********** 

* load * 

* MESSAGE * 

* ADDRESS *. 

* BLOCK * 

4 4 

4***4*4**44444444 


.* ANY *. 

YES .* ENTRIES *. NO 
TO BE 

♦.PROCESSED** 

* * * * 

*■. .* 


*♦***£ 2 ********** 

* * 

* SCAN * 

X* MESSAGE *• 

* CHAINS * 

* * 
******* ********** 


«****£ 3 ********** 

« MAKE UP * 

* LIST OF 4 

<4 BLOCKS *. 

4 NEEDED « 

4 4 

444*4444444444444 


44444CA4444444444 

* RELEASE 4 

4 MESSAGE 4 

.X* ADDRESS 4 

* BLOCK * 

4 4 

444444*444444444* 


*444 X 

04 *. 

.4 HAVE 4. 

NO .* WE *. YES 

...♦.PROCESSED ALL.*.... 
*. ENTRIES .* 


*4*4 *EX *4 ***44**4 


4*44****4*4444444 


444**44*444444*44 


.4 IS *. 

.* THIS *. 
.X*. A NEW 

*. CHAIN .* 
4. .4 


XA12A 

*4*4**1=4444*4***444 

PRINT OUT 
* APPROPRIATE * 
...X SEVERITY 

* HEADER * 


* GET TO * 

..X* NEXT ENTRY *. 

* IN CHAIN * 

4 4 

*44*4*44**4**444* 


G2 *. 

.* IS *. 

.* SKELETON *. NO 
. X* . IN CURRENT .*. . . 
*. BLOCK .* 

*. .* 


.4 4. 44*4 

END 4. YES 4 4 

OF CHAIN .4....X* D4 * 


X 


XA32 .*. 



*****uj2 ********** 

H 3 4. 

****«H 4 ********** 

4 MESSAGE 

♦ 

.4 HAS *. 

* 

STATEMENT 4 

4 NUMBER 

* 

.* IT GOT *. YES 

♦ 

NUMBER 4 

4 TO PRINT 



, . .X* 

TO PRINT 4 

4 BUFFER 

* 

*. NUMBER .* 

* 

BUFFER 4 

* 

* 

*. .* 

* 

* 

***************** 

♦. .* 

***************** 



* NO 

X 




44 444 J 1 4444444444 
4 4 

4 ACCESS 4 

4 MESSAGE *. 

4 SKELETON * 

4 4 

44444444444444444 


4444 4J2* 444444444 
4 4 

4 SCAN 4 

X* MESSAGE *. 

4 SKELETON 4 

4 4 

44444444444444444 


444 44 J 344444 444 44 

* BUILD * 

» MESSAGE * 

. X 4 TEXT IN 4. 

4 PRINT 4 

* BUFFER 4 

44444444444444444 


PUT OUT 
DIAGNOSTIC 
MESSAGE 


X 

. *. 

RV 4. 

.* WAS *. *4*4 

3 .* THIS *. YES 4 * 

.*. LAST ENTRY .4....X4 D4 4 
4. IN CHAIN .4 4 4 

4. .4 4444 

*. .* 
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Chart BW 


Phase BW Overall Logic Diagram 


***** 
*BW * 
* Al* 
* * 

* 


X 

**:* *.**!* ********* 
* * 

* RELEASE * 

* ANY LOADED * 

* PHASES * 

* * 
***************** 


***** 81 ********** 
* * 

♦ release all * 

♦ACTIVE TEXT AND* 

♦ OTCT 'BLOCKS * 

♦ ♦ 
#***♦♦**♦*****♦<■* 


*♦*♦♦ 01 * ********* 

* FREE * 

* ANY '* 

* OUTSTANDING * 

* SCR A TOW ‘STORAGE* 

* * 
***************** 


X 

D1 *. ^♦♦t**^*****#***** 

.♦COMPILATION** NO * PRINT * 

*. REQUIRED .♦ X SYSUT3 

*. . * * * 

. * 

* # # * ************* 

♦ YES 


***** 
*AA * 
* K3* 


X 

*****81********** 


* * 

♦ CLOSE SYSUT1 * 

♦ AND SYSPUNCH * 

♦ * 
* * 


**************** * 


***** 81 ********** 
* * 

♦ REALLOCATE * 

* TEXT AND ♦ 

♦ DICT BLOCKS * 

* * 
* * * * ** ***** *-** * * * 


*****£ 2 ********** 


***************** 


***** 1-11 ********** 
* * 

♦ SET UP ♦ 

♦COMMUNICATIONS ♦ 

♦ REGION * 

♦ ♦ 
**«*****♦*«♦♦♦*♦* 


X 

***♦♦ 
*CI ♦ 
♦ A !♦ 
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Table AS- Phase AS Resident Phase for Compile-time Processing 


T T 

j Main Processing 

Statement or Operation Type l Routine 


Subroutines Used 


Initializes switches for compile- j ADRP 
time processor J 


Loads phases for compile-time j ADRP 

processor | 


LOADX (AA) 


Determines whether Phase BC should ) ADRP 
be reloaded j 

i 


Table AS1. phase AS Routine/subroutine Directory 


r r* 

| Routine/Subroutine | 

h 


Function 


ADRP 

CLSBUF 

COMENT 

FREVAL 

GETIVB 

GNC 

HASH 

INCTST 

INPUT 

INRD 

OUTPTC 

SRHDIC 

STRING 

TOKSCN 

YAG2 


Initializes switches for compile-time processor. 

Outputs onto SYSUT3 the record just completed by OUTPT or OUTPTC. 

scans the limits of a comment, outputting each character into the 
output buffer. 

Releases a chain of IVBs containing a no longer needed value and 
returns chain to free list. 

Removes an IVB from the free chain for use by the calling routine. 

Updates TOKPTR to point to the next character in a particular input 
stream. 

Accepts an EBCDIC identifier as input and outputs an index. The 
index indicates the beginning of the HASH chain with which the iden- 
tifier is associated. 

Determines whether Phase BC needs to be reloaded on return from 
Phase BG. 

Reads in an input record from the source data set or from included 
text. 

Reads physical records from the included data set; deblocks and 
sends them back one logical record at a time. 

outputs a single character into one of the three output media; IVBs, 
text blocks, or external records. 

Searches the dictionary for the presence of a named item. 

Scans the limits of a string constant, outputting each character. 

Examines text, character by character recognizing and returning each 
logical unit of text (called a token). Tokens include identifiers, 
constants, operators, delimiters, etc. 

Loads processor phases for compile-time processor. 
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Table AV Phase AV Macro Processing Initialization 

f • T T 

Main Processing 

Statement or Operation Type 


Routine 


Subroutines Used 


Initializes communication area for 
compile-time processing 


INIT 


Allocates push down stack from 
scratch storage 


INIT 


Allocates translation tables 


INIT 

INIT 

INIT 


Enters SUBSTR into dictionary 


Creates dictionary entries and 
values for constants pool 


Table AVI. Phase AV Routine/Subroutine Directory 


r t- 

| Routine/Subroutine | 


r — - ~ 

T 

j INIT 


| WWN048 


| WWOVLP 


| WWOBCD 


j WWCHNBEG 



x 


Function 

Entry point to the initialization phase. This initializes the com- 
munication region for compile-time processing. 

Allocates the push down stack (to be used by Phases BC and BG) from 
scratch storage. 

Sets up tables to translate external code to EBCDIC; tests the 
BCD, EBCDIC option. 

Enters built-in function SUBSTR into dictionary. 

Creates dictionary entries and values for compile-time constant 
pool. 


Table BC. Phase BC Initial Scan and Translation 
r t* 


Statement or Operation Type 


Main Processing 
Routine 


Subroutines Used 


Recognizes statement type 


PH1SCN 


TOKEN, DELETE 




Scans until next % character 


PH1SCN 


FINDPC 


Processes PROCEDURE statement 


PH1SCN 


TOKEN, DELETE, IDSRCH, 
ADDSP (FREVAL, OUTPTC) 


Processes labels attached to state- 
ment 


PH1SCN 


IDSRCH 


Encodes statement into internal 
text 


PHlSCN 


PARSE, TOKEN, IDSRCH, ADDSP 
DELETE, CHECK 


Cleans up after INCLUDE in initial 
scan 


PHlSCN 


Begins statement identification 
process 


PHlSCN 
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FINDPC 

IDSRCH 

LIA2 

LIA3 

LIA4P 

PARSE (BE) 

PIF4 

PH1SCN (BE) 
STB3 

TOKEN 


| Scans source text, character by character, searching for macro per- ( 
| cent character. j 

1 I 

| Obtains the dictionary reference of an identifier, entering it in | 

| the dictionary if necessary. | 

I I 

| Determines whether scan is inside a procedure block. | 

I I 

(Processes label list. A label list for a PROCEDURE statement is j 

(handled differently from other labels. j 

I I 

| Produces code for identifier statement. The PARSE routine is used | 
| to code all expressions. j 

I I 

| Parses and generates interpretive macro code for compile-time | 

(expressions. | 

I i 

| Provides special handling for end of included text. j 

I I 

(Main controlling routine for phase. ( 

I I 

| Collects labels into label list and identifier statement type on | 

| first two tokens of statement. | 

I I 

| Returns significant tokens to PH1SCN and outputs diagnostics for j 
| tokens in error. j 

.x — j 


Table BG. Phase BG Final Scan and Replacement 


1 

| Statement or Operation Type 

~T ~ T 

[Main Processing! 
j Routine | 

x ± 

Subroutines Used 

r 

[Final scan for 

replacements 

T 

j PH2SCN 

T 

1 OUTPUT, 

TOKSCN, 

SRHDIC 

j Recognition of 

L _ _ 

end of text 

[PH2SCN 

| OUTPUT, 

.X 

TOKSCN, 

SRHDIC 

r 

| Recognition of 

i 

an identifier 

| PH2SCN 

. j_ 

•+ 

| OUTPUT, 

j 

TOKSCN, 

SRHDIC 

r 

| Recognition of 

i 

macro action 

T 

| PH2SCN 

1 

1 

j OUTPUT, 

1 

TOKSCN, 

SRHDIC 

r 

1 Recognition of 

l 

% character 

"T 

j PH2SCN 

4- 

‘ T 

| OUTPUT, 

TOKSCN, 

SRHDIC 

r 

j Recognition of 

l ... 

other characters 

T 

| PH2SCN 

4_ 

| OUTPUT, 

X 

TOKSCN, 

SRHDIC 

1 

1 Terminates and 
j handling 

i . 

cleans up INCLUDE 

[PH2SCN 

1 

-1- T -r- 

1 

| OUTPUT, 

TOKSCN, 

SRHDIC 

1 

| Re-establishes 
j level text 

L 

scan at next higher 

T 

j PH2SCN 
| 

| OUTPUT, 

[ 

i. _ 

TOKSCN, 

SRHDIC 

r 

| Performs replacement on activated 
| identifiers 

| PH2SCN 

1 

T — 

[OUTPUT, 

TOKSCN, 

SRHDIC 




H 


Table BG1. Phase BG Routine/subroutine Directory 


r r 

| Routine/Subroutine } 

f + 


| CONVRT 

D&CLN 

DAEOB 

DAEOBF 

DAIDEN 

DAMAC 

DAOTBR 

DAP ENT 

DAPRTC 

GETDIC 

INTPRT (BI) 
OUTPT 
PH2SCN 
POP 

PROINV (BI) 

PUSH 


Function j 

Handles conversions between the three data types used in the 
compile-time processor 

Terminates INCLUDE text handling and frees text blocks containing 
included text. 

Re-establishes scan at next higher level text. 

Recognizes and processes end of text condition. 

Recognizes and processes identifier in text. 

Recognizes and processes macro action character. 

Recognizes character and outputs it. 

Handles replacement operation for text identifiers. 

Recognizes % character and recalls Phase BC if appropriate. 

Picks up a two- byte dictionary reference from scrubbed text, per- 
forms error checking, resolves indirect references, and returns both 
relative and absolute address.. 

Interprets the macro code generated by the Phase I scan. 

Handles the output of tokens. 

Scans text blocks. 

Pops the top temporary off the Phase II stack. 

Special entry point to interpreter for invocation of procedures 
found in source program text. 

[.Pushes next available temporary onto the Phase II stack. 
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Table BM. 
r 


Phase BM Diagnostic Message Determination and Printing 


"T T 

| Main Processing! 

1 Routine j 

j. 1 

Determines whether error messages J XA 
are to be printed | 

j. <- + 

Scans error message text skeletons J XA8 
and prints them out | 

x 


Statement or Operation Type 


Subroutines Used 


None 


|XA50, XA70, XA90 , XA110, ZUPL 


r T 1 

| Routine/Subroutine | 

!■ + 1 


Taole BM1. Phase BM Routine/Subroutine Directory 

Function 

Determines whether error messages are to be printed. 

Sets severity code. 

Establishes which message types to suppress. 

Counts number of error chains to be processed. 

Puts out messages if there are no diagnostics. 

Prints out "COMPILER DIAGNOSTIC MESSAGES " . 

First scan of message chains. 

Scans error message text skeletons and prints them. 

Scans to head of next non-empty chain. 

Selects and prints header for messages of given severity. 
Gets next entry in message chain. 

Builds up first part of message in buffer. 

Accesses message skeleton. 

Puts out completed message. 

(Moves message text to print buffer. 


XA 


XAO 


XA01 


XA1 


XA2 


XA4 


XA7 


XA8 


XA9 (BN) 

XA12A 


XA30 

(BN) 

XA32 

(BN) 

XA35 

(BN) 

XA40 

(BN) 

XA50 

(BN) 

XA70 

(BN) 

XA90 

(BN) 

XA110 

(BN) 

ZUPL 



Converts binary statement number to character representation, and 
moves it to print buffer. 

Converts binary numeric value to character representation and moves 
it to print buffer. 

Moves identifier from dictionary entry to the print area. 

Prints a line on SYSPRINT data set. 

L X J 


Table BW. Phase BW Cleanup Phase 

r 

I 

| Statement or Operation Type 

j. 

j Resets all tables and communi- 
J cations region cells to the value 
j required by the compiler proper 

L 


T T 1 - 

|Main Processing) 

J Routine | 


4 + 

| IEMBW j None 


.1 


x. 


Subroutines Used 


1 

I 

I 

I 
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Chart 02. Read-In Logical Phase Diagram Flowchart 


x 

.*. 

A1 *. 

.* 48 *. 

.* CHARACTER *. VES 
*. SET .*.... 
*. OPTION .* 

*. .* 

*. . * 

* NO 


****#A2 ********** 
*48-CHAR 8X* 

*-*—*-*-*—*-*—*-* 
,X* CONVERT TO * 

* 60 CHARACTER * 

♦ SET * 

**£$*$:*****#*<*#*# 


l ********** 

*1 ST PASS Cl* 
*-*-*-*-*-*-*-*-* 
* LIST IF REQ'D * 
*AND CONVERT TO * 
♦INTERNAL CHARS * 
***************** 


**»**C1 ********** 
♦MAKE OICT ENTRY* 
♦FOR LABELS AND * 

* CHECK FOR * 

* LOGICAL END * 

* OF PROGRAM * 
***************** 


***** 01 ********** 
♦2ND PASS CL* 
*_*_*_*_ *_*_*_ *_* 

* SCAN TEXT TO * 
♦ANALYZE SYNTAX * 

* OF STATEMENTS * 
***************** 


.*. 

El *. 

.* ANY *. 

.* ALLOCATE, *. YES 


• ^ HUULH I Cl 

♦•DECLARE* CALL • * 
♦STATEMENTS. ♦ 

♦ . • ♦ 


****♦£ £♦♦*♦♦♦♦♦♦♦ 
♦3RD PASS CO* 

* 

.X* SCAN TEXT TO * 
♦ANALYZE SYNTAX * 
* OF STATEMENTS * 
***************** 


.* ANY *. 
.♦STREAM I/O *. YES 
*. OR FORMAT 
♦STATEMENTS.* 

*• • * 

*. . * 

* NO 


♦****F2 ********** 
♦4TH PASS CS« 

*_*_*_*_*_*_*_*_* 
.X* SCAN TEXT TO * 
♦ANALYZE SYNTAX * 
* OF STATEMENTS * 
***************** 


***** 01 ********** 
*5TH PASS CV* 
*_*-*-*_*_*_*-*-* 
♦MAKE CHAINS OF * 
*CALL, OECLARE, * 
* ALLOC, t PROC * 
***************** 
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Chart BX. Phase BX Overall Logic Diagram 


***** 
*BX * 
* Al* 


• X. 


B A 1 X BA1 A X 

*****4 ^ ********** *****42********** 

* * * * 

* READ AND * * SCAN FIRST * 

..X* “ COPY ONE * X* COPY OF * 

* RECORD * * THE TEXT * 

* * * * 

***************** ***************** 

x 

6A70 

B1 *. #****g 2********** 

. * *. * READ ONE * 

.* NEAR *. YES * RECORD * 

*. END OF .* X* AHEAD AND *. 

♦ . RECORO .* * TACK IT UN * 

.* « * 

'*. .* ***************** 

* NO 


.* START *. YES 
». OF COMMENT .*.... 
*. OR STRING.* 


BA25, BA45 

*****C 2 ********** 

* * 

* SET * 

...X* APPROPRIATE *. 

# SWITCH ON * 


******** ******** 


01 


*. 


* . 


.* END *. YES 
*. OF COMMENT ...... 

*. OR STRING.* 

*• • * 

* . . * 

* NO 


* ..SET 

(* APPROPRIATE 

* SWITCH OFF 

* 

********* ^fr*** 1 ) 


.* POSSIBLE *. YES 
*. KEYWORD, .*.... 
♦PERIOD, OR.* 

*. COMMA.* 


. * 


FI 


.*. 


*. 


**** 


*, 

END *. NO * 

*. OF .*.... X* A2 

*. RECORD .* * 

*. . * 


* YES 


**** 


OPERATOR *. YES 
KEYWORD 

. .* 


*****f4********** 

* <* 

<* IGNORE *... 

* * 

* * 

***************** 


8A11 

*****F 4* ********* 

* REPLACF * 

* BY * 

>..X* OPERATOR *.. 

* SYMBOL * 


***************** 


BA 90 

**«**£ 1 *********** 
* WRITE ^ 


***************** 


NEXT *. 
RECORD 
ALREADY .* 


* ADJUST * 

<* TEXT *. 

* IN CORE * 

* * 
***** ************ 


* # 


, *. . * . 

G3 

YES • * * FOLLOWED YES 

PERIOD X* • BY PERIOD 

# * ♦ , , * 

• . * *. # * 

*. .* *. . * 

*• NO * NO 

lx 

X 

H3 *. H4 *. 

**. YES • ** FOLLOWED **. NO 

COMMA .* X* • BY A 

♦* *. PERIOD • * 

. * *- . * 

* . • ♦ 

0 * YES 


IS 

IT LAST 
. RECORD . 
#. .* 


***** 

*CI * 

* Al* 


3 ********** 
* * 

* * 

* IGNORE * 

* * 

* * 

***************** 


J4 *. 

.* *. 

FOLLOWED *. 
BY A 

• DIGIT .* 
*• . * 

*. .* 

* YES 


*$***K4 ********** 


***************** 


* REPLACE * 

<* BY * 

* COLON * 

* * 
***************** 

. **** 

, * * 

..X* A? * 

* * 

**** 

* * * ** h 5 * ******** * 
* * 

* * 

(..* IGNORE * 

* * 

* * 

***************** 

, **** 

. * * 

..X* A 2 * 

* * 

**** 

M 

* REPLACE * 

<* BY * 

* SEMI-COLON * 

* * 
***************** 


**** 

* * 

, . . X* A2 * 
* * 

**** 
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Phase Cl Overall Logic Diagram 


Chart Cl. 


***** 

*ci * 

* Al* 


CONTROL IS PASSED DIRECTLY FROM PHASE AA IF 
48-CHARACTER SET OR COMPILE-TIME PROCESSOR 


*****A1********** I S NOT SPECIFIED 


***************** 


* 81 *.X 


**** X 

. *. 

B1 *. 

.* TEST *. 
.FOR LABEL OR*. 
*. PREFIX 

*. OPTIONS .* 

*. .* 

*. .* 


POPLST 

***** B2* ********* 

* INSERT LABELS * 

* AND/OR PREFIX * 
...X* OPTIONS IN * 

* DICTIONARY * 


***************** 


* NO 


.X. 


PROC, ENTRY,*. DO, BEGIN 

Cl *. 

.* TEST *. 

.* FOR BLOCK *. YES 
*. HEADING .*.... 
♦.STATEMENT.* 

*. .* 

*. .* 

* NO 


*****C2********** 

* INCREASE * ***< 

* BLOCK AND/OR * * 

.X* LEVEL COUNT *....X* E2 

* BY1 * * 

* * ***< 

***************** 


STID .*. 

. *. 

ENO 



D1 *. 

D2 *. 

****** 3********** 

D4 *• 


« * 

• * * . 

* DECREASE * 

.* TEST *. 


-* TEST *. YES 

.* TEST *. YFS 

* BLOCK ANO/OR * 

.* IF LEVFL *. 







*. KEYWORD .* 

*. 'END* .* 

* TRANSFER’ END* * 

*. ZERO .* 

X 

*. .* 

*• .* 

♦to output Text * 

*. . * 

***** 

* # . * 

. * 

***************** 

*. # * 

*CL * 

* NO 

* NO 


* NO 

* B2 * 


**** . 



* * 


* * 



* 


* E2 *. X . 


X 



* * 


**** 


X 

**** , 


* * 


ASSIGN .*. 

STAT2 X 


* El * 


El *. 

*****£2********** 


* * 


.* TEST *. 

* * 

**** 

**** 


• *FOR NULL OR*. YES 

* TRANSFER * 

* * 



*. ASSIGNMENT .*„.». 

...X* STATEMENT TO *... 

X* B 1 * 



♦.STATEMENT.* 

* OUTPUT TEXT * 

* * 



*. 

* * 

**** 




***** ************ 





* NO 


badsti X 

** * * I * *** ***** * 
* * 
* SKIP * 

...* TO NEXT * 
. * SEMI-COLON * 

. * * 
X ***************** 
**** 

* * 

♦ B1 * 

* * 

**** 
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Chart CL. Phase CL Overall Logic Diagram 


***** 
*CL * 
* B2* 


.X. 


BtblNi UUU, 

on, GOTO, WAIT, 
DELAY, EXIT, STOP, 
ENDO, ENUITDO, 
RETURN, FREE, CALL, 
DISPLAY, FORMAT, 

END 


READ, WRITE, 
REWRITE, DELETE, 
OPEN, CLOSE 


ALLOCATE, DECLARE, 
ON, SIGNAL, 

REVERT, ASSIGN, 
GOOB, IF, PR0C1 


MA .*. 

82 *. 

, * * . 

.* TEST *. YES 
*• FOR SPECIFIC .*.,.. 
♦.KEYWORDS .* 


. *. 

C2 *. 

.* TEST *. 

.* FOR *. 
*. DEFERRED 
*. FEATURES .* 
*. . * 

*. . * 

* NO' 


**«**g 3 ********** 
* * 

* PROCESS * 

<* THE * 

* STATEMENT * 

* * 
***************** 


**** 

***** 03 ********** 

* PUT OUT AN * 

* ERROR MESSAGE * 
AND DELETE * 

* THE * 

* STATEMENT * 
***************** 


.X* 


. *. 

D2 *. 

.* TEST *. 

.* FOR *. YES 

. I/O .*.... 

*. STATEMENT.* 


. * 


X 

.*. 

E2 *. 


* . 


TEST *. YES 
*. FOR OTHER .*.... 
•STATEMENTS. * 

*, .* 

*. .* 

* NO 


**** 


*****03********** 
* * 

* MARK THE * 

<* I/O PHASES * 

* AS 'WANTED 1 * 

* * 
***************** 


***♦*£ 3*** ******* 

* TRANSFER * 

* STATEMENT TO * 

OUTPUT TEXT *. 

* WITHOUT * 

* CHECKING * 

***************** 


.X* 


F2 


*. 


*. 


.* TEST 
.* FOR *. 

. END OF .* 
*. PROGRAM .* 

*. .* 


*. 


* NO 


**** 

BADST X 

***** 02 ********** 

* * 

* SKIP TEXT TO * 

* SEMI-COLON OR *. 
♦KEYWORD 'ELSE' * 

* * 
***************** 


X 

***** 

*co * 

* Bl* 


GOES TO PHASE CS IF 
PROGRAM DOES NOT 
CONTAIN A DECLARE, 
CALL, OR ALLOCATE 
STATEMENT 


.* TEST 
FOR 
*. 'ELSE* 


*****04********** 
* * 

* TRANSFER * 
> X*EL SE STATEMENT * 

♦TO OUTPUT TEXT * 

* • 
***************** 
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Chart CO. Phase CO Overall Logic Diagram 


***** 

*co * 

* Bl* 
* * 


**** 

► * 

► Bl * 

► * 
**** 


.*. 

Bl *. 

.* *. 

TEST *. V 
FOR .*. 

. DECLARE .* 

*. .* 

*. .* 

* NO 


X 

.*. 

Cl *. 

.* *. 

TEST *. YES 
FOR .*.... 

.ALLOCATE .* 

*. .* 


DECL .*. 

B2 *. 

.* *. 

.* TEST FOR *. YES 
...X*. LABEL! S ) .*.... 


**«**B3 ********** 


***************** 


.*. 

01 * 

.* 

.* TEST 
► . FOR 
*. CALL 


BCOL X 

****»C2 ********** 

* CHECK SYNTAX * **** 

* OF * * * 

...X* DECLARATION +....X* Bl * 

* OR • X * * 

* ALLOCATION * . **** 

***************** 


* PROCESS * 

<* CALL *... 

* STATEMENT * 

* * 
***************** 


.* TEST 
► . FOR END OF 
*. PROGRAM . 
*, ,* 


SCANT 

*****B2********** 

* TRANSFER * 

* STATEMENT * 

...X* TO OUTPUT *. 

* TEXT WITHOUT * 

* PROCESSING * 
***************** 


***** 

*cs * 

* B2* 
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Chart CS » Phase CS Overall Logic Diagram 


INPUT FROM PHASE CL IF PROGRAM 
DOES NOT CONTAIN DECLARE, CALL 
OR ALLOCATE STATEMENTS 


READ, WRITE, 
GET, PUT, 

OPEN, CLOSE, 
REWRITE, DELETE 


*****£ 3 ********** 


PROCESS THE * 

STATEMENT *... 


***************** 


UNLOCK 

C2 *. ***♦*£ 3j.****t*#*> 

.* *. * DEFERRED - * 

. * TEST FOR *. YES * FEATURE- PUT, * 

*. 'UNLOCK' .* X*OUT A MESSAGE- *. . . 

*. .* * DELETE THE i * 

*. .* * STATEMENT » * 

.* *******$♦♦***,,£** 

* NU 


, 

E2 *. 

.* TEST *. 

* FOR *. 
END OF 

». PROGRAM .* 


*********** ****** 


* TRANSFER * 

> X F STATEMENT TO *. 

* OUTPUT TEXT * 

* * 
***************** 
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Chart CV. Phase CV Overall Logic Diagram 


***** 
*CV * * * 
* B2* 


.* TEST *. 
. FOR 

* . LAB E L ( S ) .* 


ENTRY, PROC, 
BEGIN, CALL, 
OECLARE 


NO .* TEST *. 
...*. FOR PREFIX . 
*. OPTIONS .* 

* . . * 


« *. 

02 *. 

.* TEST *. 

* FOR CHECK *. YES 
AND NOCHECK 
►. LISTS .* 

*. .* 

*. . * 

* NO 


F2 *. 

.* TEST *, 

.* FOR AN *. YES 
*. ON-STATEMENT .*.... 
*. 


*. 


. * 


*. 


TEST 
■ FOR 
•END' 


H2 *. 

.A *. 

TEST « 
FOR END OF 
PROGRAM 


***************** 


* PROCESS * 

<* PREFIX * 

* OPTIONS * 

* * 
***************** 


P0C1 

***** 0 3 * ********* 

* FORM THE * 

* NECESSARY * 

...X* PSEUDO *. 

* STATEMENT * 


***************** 


CHEKON 

*****F3********** 

* SURROUND * 

* THE ON-UNIT * 

...X# BY A *, 

* PROC-ENO * 


***************** 


CHAIN 

*****f *********** 

* SLOT THESE * 

* STATEMENTS * 

• .X* INTO THE * 

* RELEVANT * 

* CHAINS * 

***************** 


***************** 


*, 


*. . * 


. * 


***** 
*EG * 
* Al* 


* TRANSFER * * * 

* STATEMENT *....X* B2 * 

* WITHOUT * * * 

* CHECKING * **** 

***************** 
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Table BX. Phase BX 48-Character Set Preprocessor 


Statement or Operation Type 


Main Processing 
Routine 


Subroutines Used 


Translates keyword table to inter- 
nal code and initializes 


Reads a record 


ZURD (A.A) 


Scans text 


Handles operators and keywords 


Replaces operator keywords 


Replaces comma-dot by semi-colon 
where applicable 


Deals with quote marks 


Maintains parenthesis level count 


Replaces period-period by colon 


Processes a slash 


Reads one record ahead in case of 
need 


Restores the situation when a read 
ahead has taken place 


Puts out converted text and origi- 
nal text onto backing store 
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Table CA. 

Module CA Read- In 

Common 

Block 

1 


i * 

1 

i _ 

Function 



1 

Subroutines 

1 

j Provides 
| passes of 

L 

subroutines common 
the read- in phase 

to all 

five 

JACONST, 

| MVCHAR, 
x _ _ 

DECINT, EXP, EXPAND, EXPLST, IDENT, 
OPTOR, SCONST, SINGLE, SQUID 


Table CA1. Module CA Routine/Subroutine Directory 


r T * 

I Routine/Subroutine I 


Function 


I" 


ACONST 

DECINT 

EXP 

EXPAND 

EXPLST 

IDENT 

MVCHAR 

OPTOR 

SCONST 

SINGLE 

SQUID 


(Checks for a valid arithmetic constant. 

Checks decimal integer. 

Diagnoses expressions. 

Expands iterations of string constants and picture characters. 

Checks for a list of expressions separated by commas but enclosed in 
parentheses. 

Checks for a valid identifier. 

Moves text from one address to another. 

Checks for an operator and replaces the two-byte operators by one- 
byte codes. 

Checks for a valid string constant. 

Diagnoses a single expression in parentheses. 

Checks for a valid subscripted and qualified identifier. 
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Table CC. Module CC Read- In Common Block 2 


Function 

1 Subroutines 

Provides subroutines common to all five 
passes of the read- in phase 

j CHAR, CHECK, KEYWD, MESAGE, NONEX, 
f NULINS, OPTEST, PICT, PREC, SOFLOW 


Table CC1 . Module CC Routine/Subroutine Directory 


r t 

| Routine/Subroutine | 

j. 1 


Function 

Diagnoses the CHARACTER and BIT data attributes. 

Tests the top entry in the stack. 

Identifies keywords and hands back the replacement character- to the 
caller. 

Provides a diagnostic message. 

Checks stack for non- executable statements. 

Inserts null statement in output text. 

Tests the output string and moves text to the output. 

Diagnoses a picture. It uses a TRT table set up for the purpose. 

Diagnoses the precision, and the attributes and format items which 
use it. 

Bumps stack pointer and checks for stack overflow. 


CHAR 

CHECK 

KEYWD 

MESAGE 
NONEX 
[ NULINS 
OPTEST 
PICT 
PREC 

SOFLOW 


Table CE. Modules CE # CK, CN, and CR Read- In Keyword Block 


r 


T 

Function | 


1- 

J Provides tables of keywords in internal 
| code, together with replacement code. 

{.Mo functional code exists in these modules. 
fRefer to Appendix B for details of keyword 
j tables. 

i 


+ 

I None 


x. 


Subroutines 


I 

A 


j 
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Table Cl. Phase Cl Read-In First Pass 


Statement or Operation Type 


*t r* 

| Main processing! 

| Routine I 


Subroutines Used 


r + + ^ 


[controls main scan, identifies 
statements, and analyzes some in 
detail 


RSTART ! ASSIGN, BADST1 , BEGIN, DO, 

| ELSE, BUMP, END, EOP, ERROR, IF, 

|0N, POPLST, PROC, READ, SIGRVT, 
j STAT2, STRING, plus those 
| subroutines contained in modules CA| 
j and CC 

L X X . J 


Table CI1. Phase Cl Routine/Subroutine Directory 


r T . 

| Routine/Subroutine | 

h 


— i 


Function 


ASSIGN (CG) 
t BADSTl. 

BEGIN (CG) 

BUMP 

DO (CG) 

ELSE (CG) 
END (CG) 

ENTRY 

EOP 

ERROR (CG) 
IF (CGI 
i ON (CG) 
i POPLST 

PROC 

READ 

RSTART 

SIGRVT (CG) 
ST AT 2 (CG) 
STID 

STRING (CG) 


i 


[Diagnoses an assignment statement. 

Recovers from failure to recognize a statement type; skips to next 
semi-colon. 

Checks the BEGIN statement and makes an entry in the first pass 
stack. 

Advances the input Data Pointer (DP>, skips blanks, if any, forcing 
source text to be read into storage as necessary. 

[Checks the DO statements and makes an entry in the first pass stack. 
Unstacks an IF compound statement. 

Processes three different types of END statements; PROCEDURE- BEG IN; 
DO; iterative DO. 

Processes ENTRY statement. 

Processes end- of- program marker, and returns to compiler control in 
order to load next pass. 

Handles false starts on possible statements. 

Scans the IF statement and makes entry in first pass stack. 

Diagnoses the ON statement and makes entry in first pass stack. 

Removes prefix options from the text and places them in the dic- 
tionary. 

Scans the PROCEDURE and ENTRY statement and makes an entry in the 
first pass stack. 

Reads source text into storage, translating it into internal code, 
except for character strings; removes comments; prints source list- 
ing and prefix options. 

Controls the first pass scan. Enters statement labels into the 
dictionary. 

Scans SIGNAL and REVERT statements. 

Handles all other statements. 

Statement identifier routine. 

Scans character strings. 
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Table CL. Phase CL Read-In Second Pass 


■ T r- 

| Main Processing! 

| Routine | 


Statement or Operation Type 


Subroutines Used 


h 

| Scans for statements handled in | 
j this pass, analyzing them in j 
j detail. Skips over other statements! 


SCNA 


| BUMP, DELAY, DSPLAY, DO, FREE, | 
| GOTO, I TDO, LABEL, PROC, RETURN, | 
j TRTSC, plus those subroutines con- j 
jtained in modules CA and CC | 

.1 j 


Table CL1. Phase CL Routine/Subroutine Directory 


r T * 

| Routine/Subroutine | 

h 


Function 


BUMP 

DELAY 

DSPLAY 

DO 

EOP 

FREE 

GOTO 

ITDO 

LABEL 

OPTION 

PROC (CM) 

RETURN 

SCNA 

TRTSC 


Increments the input Data Pointer (DP), skipping over blanks, 
obtaining a new text block if necessary. 

Processes DELAY statements. 

Processes DISPLAY statements. 

Processes DO statements. 

Processes end-of-program marker, and releases control to phase CO or 
CS, or CV (CO and CS are optional phases). 

Processes FREE statements. 

Processes GOTO statements. 

Processes iterative DO statements. 

Diagnoses LABEL attributes. 

Handles OPTIONS attribute on PROCEDURE or ENTRY statements. 

Analyzes PROCEDURE attributes and options, and completes the diag- 
nosis of PROCEDURE and ENTRY statements. 

Processes RETURN statements. 

Main controlling routine of this pass. 

Skips over all other statements. 
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Table CO. Phase CO Read-In Third Pass 


Statement or Operation Type 


Main Processing! 
Routine j 


Subroutines Used 


| Scans for DECLARE, CALL, and 
j ALLOCATE statements. Analyzes 
| syntax of attributes by calling 
| appropriate subroutines 


SCAN2 


| ATTLST, BUMP, CALLOP, DECL, DEFIND, 

| DIMS, ENTRY, ENVMNT, EOP, 

| GENRIC, LABEL, LIKE, USES, IVLIST, 

| and those subroutines contained in 
j modules CA and CC 

.x 


Table C01 . Phase CO Routine/Subroutine Directory 


j Routine/Subroutine | 

h 


Function 


ATTLST 

BDCL 

BUMP 

CALLOP (CP) 

DECL 

DEFIND 

DIMS 

ENTRY 

ENVMNT (CP) 

EOP 

GENRIC 
IVLIST (CP) 
LABEL (CP) 
LIKE 
SCAN2 

SCANT 

USES 


Processes an attribute list. (Recursive) 

Processes DECLARE or ALLOCATE statement. 

Advances Data Pointer (DP) , obtaining new input block if necessary. 
Checks CALL statements and options. 

Processes the DECLARE and ALLOCATE statements. 

Checks the DEFINED attribute. 

Examines the dimension specifications. 

Checks the ENTRY attribute. 

Removes environment information from the text and inserts it into 
the dictionary. 

Processes the end- of -prog ram marker, and releases control. 

Processes the GENERIC attribute. 

Processes the INITIAL attribute 
Analyzes LABEL attribute. 

Processes the LIKE attribute. 

Scans for DECLARE, CALL, or ALLOCATE statements, moves others to the 
output string unaltered. 

Moves text to semicolon without alteration. 

Processes the USES and SETS attributes. 
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Table CS. Phase CS Read- In Fourth Pass 


r t 1 1 

| (Main Processing) j 

| Statement or Operation Type | Routine | Subroutines Used j 

j. -j- -j- -) 

j Controls main scan and identifies | SCNA |EOP, FORMAT, GET, LIST, OPEN, j 

j I/O statements for further analysis j |READ, TRTSC, plus those subroutines] 

j | j contained in modules CA and CC j 

L X X J 


Table CS1. Phase CS routine/Subroutine Directory 


r T - 

Routine/Subroutine | 

* 


Function 


EOF 

FORMAT (CT) 
GET (CT) 
LIST 

OPEN (CT) 
READ 

SCNA 

TRTSC 

UNLOCK 


Processes end-of-program marker and releases control. 

Processes the FORMAT statement and format lists. 

Processes GET and PUT statements. 

Processes data lists. 

| Diagnoses OPEN and CLOSE statements. 

| Checks the syntax of RECORD I/O statements READ, WRITE, REWRITE, and 
DELETE. This routine also checks for permissible combinations of 
| these statements. 

[Main scan of this pass. 

Skips over all statements other than I/O, moving them to the output 
text. 

[Deferred feature. Puts out a message and deletes the statement. 
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Table CV. Phase CV Read-In Fifth Pass 


r 

I 

| Statement or Operation Type 

f 

(Identifies statements for which it 
j must build chains 


L 


T T 

| Main Processing! 

j Routine j Subroutines Used 

4 + 

|SCNA (CALLIN, CHAIN, DECL3, D03, END 3, 

| j ENTRY3 , EOP, P0A1, PROC3 , TRTSC, 

| j and those subroutines contained in 

| | modules CA and CC. 

.x x 


I 

I 

I 


Table CV1. Phase CV Routine/Subroutine Directory 

r t 

| Routine/Subroutine | 


Function 


h 


4 - 


(CALLIN (CW) 

| Makes up the CALL chain. 





| CHAIN 

| Forms chains. 

1 





| CHECKON 

I 

(Checks the fifth pass stack for ON entry, in order 
j PROC-END statements round the ON unit. 

to insert 


| DECL3 

i 

| Chains the DECLARE statement to the appropriate 
j ment . 

i 

PROC or 

BEGIN 

state- ( 

| D03 

1 

(Makes a stack entry for DO block. 

i 





| END3 

1 

| Checks the fifth pass stack. 





| ENTRY3 

1 

(Makes an entry in the ENTRY chain. 

1 





| eop : ( cw) 

i 

(Processes end-of -program marker, and releases control. 

1 



| ILABSN (CW) 

i 

| Creates pseudo- assignment statements for initial 
1 

labels. 



| POA1 

1 

(Analyzes prefix options in greater detail. 

i 





| P0C1 

1 

(Processes check lists. 

i 





| PR0C3 

1 

| Makes an entry in the PROCEDURE- BEGIN chain. 

i 





| SCNA 

1 

(Main controlling routine of the pass. 

1 





| SCNZ 

1 

(Extracts statement number for label entry. 

i 





1 TRTSC 

1 

| Skips over statements not required for analysis 

1 

in 

this 

phase. 
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Chart 03. 

Dictionary Logical Phase 

Flowchart 

***** 

*03 * 

* Al* 

* 

X 

* * * * * A 1 ********* * 

♦ INITIAL I ZN EG* 

*_*_*_*_*_*_*_*_* 

♦SET UP HASH TAB* 

*£ INSERT TABLE * 
♦ENTRIES IN CHNS* 
***************** 


«****A3 ********** 
♦BCD-DICT REF FE* 
*-*-*-*-*-*-*-*-* 
..X* CHANGE BCD TO ♦ 

♦ DICTIONARY ♦ 

* REFERENCES ♦ 
***************** 


X 

*****01 ********** 

♦ CREATE 01 C T ENT* 

♦FOR PROCt BEGIN* 

♦AND ENTRY STMNT * 

♦AND SETUP ENTRY* 

* TYPE I CHAINS * 
***************** 


X 

*****B3********** 

♦CHECK FI* 

♦CHECK VALIDITY * 

♦ OF DICTIONARY ♦ 

* -REFERENCES * 

***************** 


X 

*****d********** 

♦DECL PASS 1 El* 
*_*_*_*_*_*_*_*_* 
♦SCAN DECL CHAIN* 
♦PREPARE ATTRIBS* 

♦FOR NEXT PHASE * 
***************** 


X 

• ♦. 

C3 ♦. 

.♦ SETS ♦. 

.* OR USES *. YES 
♦.ATTRIBUTE IN .♦... 
♦. PROGRAM .♦ 

♦ . . ♦ 

"♦'no 

*****£4********** 

♦ATTRIBUTES FK* 

*-*-*-*-*-*-*-*-* 

* USES LISTS IN * 
♦THE DICTIONARY * 

***************** 

X 

«****□ 1 ****♦♦♦*♦* 
♦DECL PASS^2^ EX* 


X 

*****03********** 

♦ON _ ^ ^ FO* 


♦SCAN DECL CHAIN* 
♦MAKE ENTRY FOR ♦ 
♦EACH DEC VAR I AB* 
***************** 


♦CONSTRUCT DICT ♦ 

♦ ENTRIES FOR ♦ 

♦ ON-CONDITIONS ♦ 
***************** 


X 

*****01 ********** 
♦COMMUNICATNS EP* 

♦SET LATE PHASES* 
♦WANTED OR UNWTD* 

* ACC TO FLAGS * 
***************** 


X 

*****53********** 

♦ REPLACE BY AN ♦ 
♦ERROR STATEMENTS 

♦ ANY STATEMENT ♦ 
♦CONTNG A DUMMY * 
♦DICT REFERENCE ♦ 
***************** 


X 

*****p 1********** 

♦SCAN ENT TYPE 1* 

♦CHN MAKING ENT * 
♦TYPE 2 £ 3 DICT* 


X 

F 3 * '*. 

.♦ ANY ♦. 

.♦ PICTURES ♦. YES 

*. IN THE .* 

*****F4********** 

♦PICTURE FQ* 

*_*_*_*_*_*_*_*_* 

* ENTS FOR DATA * 

♦TYP RET BY PROC* 
***************** 


♦. PROGRAM .♦ 

*. • ♦ 

*. .♦ 

♦ NO 

* OF PICTURE * 

* CHAIN * 

***************** 

X 

*****G1 ********** 

* SCAN CALL ♦ 

* CHAIN MAKING * 

♦DIC ENTRIES FOR* 
♦EXTERNAL ENTRY ♦ 

* NAMES ♦ 

***************** 


X 

****«Q3 ********** 

♦HOUSEKEEPING FT* 

♦CHAIN VARIABLES* 

♦OF EACH STORAGE* 
♦CLASS 6 CONSTS ♦ 

***************** 


Hi" 

.* DOES ♦. 

.* PROGRAM *. YES 

**«**H2 ********** 

♦LIKE EW* 

*-.*_*_*_*_*-*_*_* 

X 

* ****H 3 ********** 

* UNCOMMON * 

* PICTURE AND * 


♦.ATTRIBUTE.* 

*. . * 

"**N0 

* EXPAND ALL * 
♦LIKENED STRUCTS* 
***************** 

* DICT. ENTRIES * 

* * 
***************** 


X 

.*. 

JI *. 

.* DOES *. 

.* PROGRAM *. YES 

**«**j 2 ********** 

♦ALLOCATE EY* 

X 

«****j 3 ********** 

♦MERGE 2ND FILE * 
♦STATEMENTS AFTR* 


♦. CONTAIN AN .*.... 
♦.ALLOCATE .♦ 

*. STMNT.* 

....X*SCAN ALLOC. COPY* 

♦DICT ENTRIES OF* 
♦ALLOCATED VARS.* 

♦APPROPRIATE PRC* 

* BEGIN OR * 

♦ ALLOCATE STMNT S* 


* NO 


***************** 




X 


*****Ki********** 
♦CONTEXT FA* 
*-*-*-*-*-*-*-*-* 

*****K2*** ******* 

* MAKE DICT * 

* ENTRIES FOR * 

K3 *. 

.* ATR *. 

.* OR XREF *. YES 

******* 4* ********** 

* PRINT ATR * 

♦ENTRY FOR COND ♦ 

* NAMES £ FILES * 

***************** 

♦IN THE PROGRAM * 

* * 
***************** 

♦.REQUIRED .♦ 

*’*'no 

* LISTING * 

************* 



X 

***** 

X 

***** 



*04 * 

* Al* 

* * 

* 

*04 * 

* Al* 

* * 

* 

9R 






Chart EG. Phase EG Overall Logic Diagram 


*****A}*********4 


INITIALIZE 
HASH TABLE 


***************** 


CAA1 X 

*»***B1 ********** 

* INSERT LABELS * 

* I N HASH CHAINS,* 

* CHECKING FOR * 

* MULTIPLE * 

* DEFINITION * 
***************** 


*****d********** 

: scan : 

* PROC-BEGIN * 

* CHAIN * 

* * 


.* .*.X* ENTRY TYPE 1 






CFORP 

*****03********** 

* SCAN FORMAL * 
♦PARAMETER LIST * 

, . . X* AND CREATE *. 

* F.P. TYPE 1 * 

* ENTRIFS * 
***************** 


►****E 3 ********** 


CTYPBL 

*♦*** 0 *,* ********* 
♦SCAN ATTRIBUTE * 

* LIST. CREATE * 

...X* ENTRY TYPE 2 *. 

* FOR THE * 
♦STATEMENT LABEL* 
***************** 


***************** 


X NOTE: 

***** 

*E I * GOES TO PHASE EP 
* A2* IF THERE ARE NO 
* * DECLARE STATEMENTS 


***************** 


*****F3********** 


*****05********** 

* CHAIN * 

* VARIOUS * 

, X* ENTRY DICT * 

* ENTRIFS * 

* * 
***************** 


*****^ 5 * ********* 

* UPDATE * 

* HAPSTACK IN * 

* SCRATCH * 

* STORAGE * 

* * 
***************** 


***************** 


***************** 


**** .* *. 

* * YES .* « 

* D2 *X. . . . *. ENTRY 
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Chart El. Phase El Overall Logic Diaerram 


***************** 


CHARACTER, BIT, PICTURE, 
USES, SETS, DEFINED, 
ISUB, POSITION. LIKE, 
DIMENSIONS, INITIAL, 
INITIAL CALL, LABEL, 
PRECISION 


CCGSE X 

****«B2 ********** 

* PICK UP * 

* NEXT ENTRY * 

* IN DECLARE * 

* CHAIN * 

* * 
***************** 


CCGS2 X 

**«**B 3 ********** 
* * 

* CONTINUE * 

* SCAN OF * 

* DECLARATION * 

* * 
***************** 


C2 *. 

.* TEST *. 

.* FOR », 
*. FACTORED 
♦ATTRIBUTES.* 


*. TEST 
* . 

*. .* 
*. . * 

* NO 


CCFLP,CCFRP 

*****C 3 ********** 

* REPLACE * 

* PARENTHESES * 
,.X* BY SPECIAL *. 

* CODES FOR * 

* LATER PHASES * 
***************** 


*****D3********** 

* PARTIALLY * 

* PROCESS THE * 
.X* ATTRIBUTE TO *. 

* ASSIST LATER * 

* PHASES * 

***************** 


.*. GENTRY 

E2 *• *****E3********** 

.* TEST *. * KEEP A COUNT * 

.* FOR *. YES * OF THE * 

. ENTRY OR .* ...X*PARENTHESES TO *. 

*. GENERIC .* *ASS I ST FACTORED* 

*. .* *ATTRI BUTE SCAN * 

*. .* ***************** 

* NO 


F2 *. 

.* TEST *. 

.* FOR *. NO 
END OF .*... 
*. DECLARE .* 


CSGSOO .*. 

G2 *. 

.* TEST *. 

NO .* FOR ENO *. 
...*. OF DECLARE .* 
*. CHAIN .* 


100 



Chart EL 


Phase FL Overall Logic Diagram 


***** 
*El * 
* Al* 


* INITIALIZE * 

* PASS CONTROL * 

* TO IEMEM * 

* * 
***************** 


* SCAN CHAIN * 

.X* OF PROCEDURE * 

* STATEMENTS * 

* * 
***************** 


X 

.*. 

Cl *. 


SCANA 

*****C 2*** ******* 

* * 

* SCAN CHAIN * 

...X* OF DECLARE *. 

* STATEMENTS * 


***************** 


X 

***** 
*EP * 
* Al* 


CDCLSC X 

***** 03 ********** 

* PICK UP NEXT * 
IDENTIFIER 


***************** 


* DECIDE * 

* NATURE OF * 

* IDENTIFIER * 

***************** 


ATLSCN 

*****R3********** 

* APPLY * 

* ATTRIBUTES IN * 

* ATTRIBUTE * 

* LIST * 

* * 
***************** 


* APPLY * 

* FACTORED * 

* ATTRIBUTES * 

* * 
***************** 


IMPATT X 

♦****H3 ********** 

* APPLY * 

* IMPLICIT * 

* AND DEFAULT * 

* ATTRIBUTES * 

* * 
***************** 


CDICEN 

«****J3***« ****** 

* MAKE * 

* DICTIONARY * 

ENTRY FOR * 

* IDENTIFIER * 


***************** 


**** 

* * 

* B1 * 

* * 
**** 
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Chart EP. Phase EP Overall Logic Diagram 


***** 
*EP * 
* Al* 


PHSMRK X 

*****A1* ********* 

* CONDITIONALLY * 

* MARK PHASES * 

* WANTED AND * 

* NOT WANTED * 

* * 
***************** 


EPL20 X 

***** 61 ********** 

* GO TO * 

* FIRST ENTRY * 

* IN *. 

* ENTRY TYPE 1 * 

* CHAIN * 

***************** 


* GO TO DICT * 
(* ENTRY FOR *. 

* FIRST LABEL * 

* * 
***************** 


EPL75 X 

*****63********** 

* CONSTRUCT * 

* ENTRIES * 

...X* TYPE 2 ANO *. 

* 3 IF NOT * 

* THERE * 

***************** 


B4 *. 

.4 4. 

► LAST * 
LABEL 


* GO TD DICT * 

<* ENTRY FOR * 

* NEXT LABFL * 

* * 
***************** 


EPL40 X 


. *. 


C 3 *. 

* GO TO NEXT 

* 

.* *. **** 

* ENTRY IN 

* 

.* *. YES * * 

* PROCEDURE 


• . • . X* . PROCEDURE .♦.♦..X* B2 * 

* ENTRY CHAIN 

* 

*. .* * * 

* 

* 

* . . * **** 

***************** 

*. .* 


* NO 





• X 

X 


. NO 

EPL600 





• *• 

**♦**□!* ********* 



D3 *. 

*****D4-********** 

D5 4. 

* GET TEXT * 



. * *. 

* * 

. * *. 

* REFERENCE * 



YES .* END OF *. NO 

* GO TO NEXT ♦ 

. * *. 




* # ENTRY CHAIN 



* CALL CHAIN * 



* # * * 

* * 

* . . * 

* * 



* . . * 


*. , * 

***************** 



*. .* 

***************** 

*, . * 




* 


* YES 






. ** ** 

* * 





. * * 

* El *.X. 





..X* B 2 * 

* * 





* * 

44«4 X 





** ** 




# 

EPL340 

CDICEN 

El *. 

**** *F? ***** ** *** 

E 3 *. 

E4 *. 

*****E5* ********* 

.* *. 

* SCAN THE 

* 

. * *. 

.* IS *. 

♦MAKE DICTIONARY* 

.4 END *. NO 

* DICTIONARY 

* 

.4 4. NO 

.AIDENTIFIFR 4. NO 

4 ENTRY USING 4 

4. OF CALL .*... 


*• • • 


• « • • X 4 , BUILT-IN .4.... 

. . . . X * DEFAULT RULES * 

*. CHAIN .4 

* IDENTIFIER 

* 

*• ** 

4. FUNCTION .4 

4 FOR DATA TYPF * 

*. • * 

* 

* 

*. . * 

* . . * 

* * 


***************** 

* . . * 

♦ . # * 

***************** 

* YES 



* YES 

4 YES 


X 

***** CONTROL 

PASSED TO 


• 



*EW * PHASE EW 

(OPTIONAL! OR 


X 



* Al* PHASE EY 

(OPTIONAL) OR 


. *. 

X 

EPL360 X 

* * PHASE FA 

(NON-OPTIONAL) 


F 3 *. 

*****P4********** 

*****P5* ****** *** 

* 



. * *, 

4 GENERATE 4 

4 REPLACE 4 




.* IS *. NU 

4 ERROR 4 

♦ BCD BY * 




*. CALL 

• * • • X 4 MESSAGE 4 

4 DICTIONARY 4 




*. VALID .* 

4 INSERT DUMMY * 

4 REFERENCE 4 




*. . * 

4 REFERENCE 4 

* * 




* . . * 

***************** 

***************** 




* YES 






EPL360 X 

EPL29C X 





*****Q 3 ** ******** 

***** 04 ********** 





* REPLACE * 

4 GET TEXT 4 





* BCD BY * 

4 REFERENCE 4 





* DICTIONARY 

X 4 OF NEXT 4 x 





4 REFERENCE * 

4 ITEM IN 4 





* * 

4 CALL CHAIN 4 





***************** 

***************** 



X 

* *** 

* El * 

* * 

**** 
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Chart EW. Phase EW Overall Logic Diagram 


EWBEGN X 

*****A1** ******** 

* INITIALIZE. * * * 

* GET SCRATCH * 

* STORAGE AND * 

* FIRST ITEM IN * 

* LIKE CHAIN * 
***************** 


**** 

EWSTRT X 

***»*B1 ********** 
* * 

* SAVE ADDRESS * 

* CODE BYTES * 

* LEVEL ETC * 

* * 
***************** 


♦SCAN DICTIONARY* 

* FOR STRUCTURE * 

* WITH SAME BCD * 

* * 
***************** 


.*. 

D1 *. 

.* IS *. 

.* THIS A *. 
► . VALID 
♦.STRUCTURE.* 


*****02 ********** 


EWNOLK .*. 

El *. 

.* IS *. 

.* ORIGINAL *. NO 
*. STRUCTURE .*... 
*. DIMENS- .* 

*. IONED.* 

*. .* 

* YES 


EWELTS .*. 

FI *. 

.*IS THIS*. 

.* ELEMENT *. YES 
*. DIMENSIONED .*.... 


***************** 


EWOROM .*. 

E2 *. 
.*IS THIS*. 
.* ELEMENT * 
...X*. DIMENSIONED 


***** 03 ********** 

* PICK UP * 

* STRUCTURE * 

,X* WITH THE LIKE *. 

* ATTRIBUTE * 

* * 
***************** 


*COPY STRUCTURE * 
.X* ELEMENT INTO * 

* SCRATCH * 

* * 
***************** 


.* IS *. 

.* THIS A *. 
.X*. MAJOR 

* .STRUCTURE. * 

*. . * 

* . . * 

* YES 


*****EA********** 

* SET UP * 

♦ERROR MESSAGE. * 

* CHANGE ENTRY *X 

* TO A C8 * 

* ENTRY * 

***************** 


EWELDM 

*****05********** 

* COPY ENTRY UP * 

* TO THIS POINT * 
...X* INTO SCRATCH. * 

* ADD DEFAULT * 

* VALUES * 

***************** 


EWHSCN X 

*****£5********** 

* PUT COPY INTO * 

* DICTIONARY. * 

....* UPDATE * 

* STRUCTURE AND * 

* HASH CHAIN * 
***************** 


♦COPY STRUCTURE * 

* ELEMENT INTO * 

* SCRATCH * 

* * 
***************** 


* EXPANDS ENTRY * 

* INTO SCRATCH * 

♦WITH NFW DIMENS* 

* * 

***************** 


♦****£ 3 ********** 

* CALCULATE NEW * 

* NUMBER OF * 

* DIMENSIONS. * 

* PICK UP * 
♦DIMENSION TABLE* 
************ ***** 


G3 ♦ . *****g *►♦♦♦♦♦*♦♦♦♦ 

.* ARE *. *SC AN DIMENSION * 

NO .* THERE ANY *. YES * TABLE FOR * 

...*. VARIABLE .* X* VARIABLE * 

*. DIMENS- .* X *D I MENS I ON ENTRY* 

♦.IONS .* . * * 

*. # * a ***************** 


EWINCH X 

*****H1**** ****** 

* MAKE DICT * 

* ENTRY, UPDATE * 

* FORWARD AND *X. 

* HASH CHAINS * 

* * 
***************** 


J1 *. 

.♦IS THIS*. 

THE END *. YES 
OF A NEW .*.... 


*. STRUCTURE. * 


EWELDM X 

♦****H2 ********** 

* COPY ENTRY. * 

* INCLUDE * 
....* DIMENSIONS IF * 

* PRESENT * 


***************** 


J 2 *. 

.*IS THIS*. 
.* THE END « 
.X*. OF THE LIKE 
*. CHAIN .* 


EWEND 

*****J3********** 

* GO TO * 

* END ROUTINE * 
...X* TO RELEASE * 

♦SCRATCH STORAGE* 


***************** 


EW2FNT X 

*****HA********** 

♦ COPY * 

♦2ND FILE DICT. * 
♦ENTRY AND TEXT ♦ 

♦ FOR ENTITY ♦ 

♦ ♦ 
******** ********* 


. * * . ♦*♦♦ 

NO .* END OF *. YES * * 

...*. DIMENSIONED .+....X* J1 * 
*. TABLE .* * * 

*. .* **** 


X 

***** 

♦ EY ♦ 

♦ A 1* NOTE: 

* * 

♦ CONTROL IS PASSED TO 

PHASE EY (OPTIONAL) OR 
PHASE FA (NGN-OPTIONAL) 
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Chart EY. Phase EY Overall Logic Diagram 


***** 
*EY * 
* Al* 


***** 41 **** ****** 
* * 

* REVERSE * 

* SECOND FILE * 

* POINTERS * 

* * 
***************** 


EY16 X 

***** 81 ********** 

* SCAN PROC * 

* AND DECLARE * 

* CHAINS FOR * 

* ALLOCATE * 

* STATEMENTS * 

***************** 


X 

***** 
•FA * 
* A2* 


* EXAMINE EACH * 

* ITEM AND PICK * 

* UP ATTRIBUTES » 

* * 
***************** 


EY21 

*»***E1 ********** 

* IF ITEM IS * 
•STRUCTURE. CHECK* 
•DESCRIPTION IN * 

* ALLOCATE WITH • 

* DECLARATION • 
***************** 


OICBLD X 

*****P1** ******** 

* MAKE NEW DICT • 
•ENTRY FOR EACH * 
» ITEM, COPYING • 
•ATTRIBUTES FROM* 

* DECLARATION » 
***************** 


MOVEST 

*****G1********** 
•COPY ANY SECOND* 
•FILE STATEMENTS* 
...» ASSOCIATED * 

* WITH * 

* DECLARATION * 
***************** 
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Chart FA. Phase FA Overall Logic Diagram 


**** 

CE32 X 

***** A1 ********** 

* HOVE BYTE * 

* FROM INPUT * 


* SCRATCH CORE, * 

* INPUT/OUTPUT * 

* TEXT BLOCKS, * 
♦SET UP POINTERS* 


*«***Q2 ********** 

* PICK UP TEXT * 


****«£! ********** 


***************** 


1 Function 

j Constants 
j Keyword 

| Second Level Marker 
j DO or Blank 
| Right Parenthesis 
| Left Parenthesis 
| i SUB 

j Down Arrow 
| Semicolon 
j P Format 
| Identifier 
j SN, SN2, SL 
| CALL 

j PROC, BEGIN 
j DECLARE, ENTRY 
j ITDO 
| ON 

| End of Block 
| End of Program 
1 End of Text Block 


| Routine 
+ 


To j Return j 
+ 1 


* CALL CECON * 

* CONSTANTS * 

* ROUTINE * 

* * 
***************** 


CEKEY 

**«**p 2 ********** 
♦PICK UP KEYWORD** 

* TRANSLATE, * 

* AND EXECUTE * 

* RELEVANT * 

* TRANSFER * 

***************** 


.* THIS A *. 
*. SUBSCRIPTED .* 
♦.QUALIFIED,* 
♦.NAME .* 


***************** 


♦REMOVE SN. ETC * 


*****j 3********** 


•****K2 ********** 


**«**K3* ********* 
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Chart FE. Phase FE Overall Logic Diagram 


***** 
*FE * 
* Al* 


* A2 * 

* * 
**** 


♦****A 1********** 
* * 
* GET START * 


***************** 


* BUMP * 

* INPUT POINTER * 

* BY X * 

* * 
***************** 


*• .* 

*• .* 

* NO 


.* *. YES 

*. END .*.... 

*. .* 


CEKPRC 

*****B2********** 
♦MOVE STATEMENT * 

♦ TO OUTPUT, * 
...X* OMITTING *. 

* L AND C * 


***************** 


CEKEND 

***** 02 ********** 
♦MOVE STATEMENT * 

♦ TO OUTPUT, ♦ 

. . • X* INSERTI NG L AND*. 

♦ C OF CONTAIN- * 

♦ ING BLOCK * 

« **************** 


♦♦♦♦*B3********** 

* BUMP * 

* INPUT POINTER * 
TO NFXT * 

STATEMENT * 

* * 


.X* 


.*. 

01 *. 

.* ON, *. 

.* SIGNAL, *. YES 
*. OR REVERT .*.... 
♦.STATEMENT.* 

*. .* 

*. .* 

* NO 


El *. 

* * *. 

.* *. YES 

*. IDENTIFIER .*.,.. 
*• • * 

*. .* 

*. .* 

* NO 


CEKQN 

***** 02 ********** 
♦MOVE STATEMENT * 

* TO OUTPUT, * 

. . . X*INSERT I NG L AND*. 

* C AFTER IDENT * 

* BYTE * 

***************** 


FI *. 

. * *. 

.* DICT *. YES 
X. REF .*.... 

*. • * 

*. .* 

*. .* 

* NO 


***************** 


* UPDATE * 
.X* INPUT POINTER * 

* OVER REF * 

* * 
***************** 


*. .* 
*. .* 

* NO 


.* PRECEOING *. YES 
► X*. DICT REF FOR .*.... 
*. ARRAY .* 


.* ENTRY *. NO 
. X*. FOUND .*... 
*. .* 


* MAKE * 

.X* DICTIONARY * 

* ENTRY * 

* * 
***************** 


*****F 3 ********** 

* * 

* UPDATE * 

* INPUT POINTER *. 

* OVER BCD * 

* * 
**********$****** 


*****P4**<t ******* 


***************** 


.X* 


***♦*63 ********** 
* * 

* INSERT * 

SUBSCRIPT * 
MARKER IN * 

* OUTPUT * 

***************** 

I **** 


CE32 X 

*****34********** 
* * 

* INSERT * 

* FUNCTION OR *. 

* PSEUDO-VAR * 

* MARKER * 

***************** 


X 

HI *. 


*• .* 
*• •* 

* NO 


X 

*♦** 

* * 

* A2 ♦ 

* * 
♦ *** 


CEKEOP 

H2 *. 

, * 

.* *. YES 

►•.X*. FIRST 

*. •* 

*. •* 

*. .* 

* NO 


*** ** j 2 * * * ***** * * 


***************** 


*****H 3 ********** 
* * 

* UPDATE START * 
.X* OF 2ND FILE * 

* POINTER * 

* * 
***************** 


***• 

««***j3*** ******* 

* MARK GK, * 

* GP, GQ, GR * 
.X* IF ARG LIST *. 

* IN PROGRAM * 

* * 
***************** 


***** 
*FI * 
* Al* 
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Chart FI. Phase FI Overall Logic Diagram 


***«*A2 ********** 


*****A3********** 


.X*. KEYWORD GOTO .* 


2 ********** 


****«C^* ********* 

♦TRANSLATE BYTE ♦ 


CELRCT X 

***«.*£ 1 ******* 
* FOR ( BUMP 


CEKSN 

*** * *G l ******** * * 

* SAVE * 

* STATEMENT * 

* NUMBER. SKIP * 

* REST OF ENTRY * 

* * 
***************** 


| Function 

I SN, SN2, SL 
j Semicolon 
l BEGIN, PROC 
| ITDO 
| END 

| END ITDO 
| DATA LIST DO 
| ISUB 
| ON 

| Function 
j Pseudo-Variable 
1 File 
j Data Item 
j Argument 
| KEYTO 

| End of Program 


| | Chart Location | 

l 1 *T“ — -T- — \ 

| Routine | From | to | Return | 

| CEKSN | C2 | 61 | A2 | 


♦FOLLOW, REPLACE* 


.* OATA *. 

.* ITEM, *. 
♦.DEFINED OR A . 
FORMAL PARAM* 


*. OF FROM OR .* 
♦INTO OPTION* 

♦.VALID.* 


♦****J5»** ******* 


.X* OR PSEUDO-VAR * 
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Chart FK. Phase FK Overall Logic Diagram 


**** 

* * 

* A3 * 

* * 
**** 


**** *A2 ******** * * 
* GET SCRATCH * 


♦****A 3**** ****** 


**+************** 


♦ REFERENCE TO * 

* SETS ENTRY * 

***************** 


END 

OF 

AREA 


ENOFO 

*****B4«* ******** 

* RELEASE * 


*************< *** 


«****C3********** 

* SCAN SETS * 

* LIST IN * 

* DICTIONARY * 

* ENTRY * 

* * 
***************** 


*****04********** 


X* IDENTIFIERS *. 

* AND CONSTANTS * 

* IN SETS ENTRY * 

***************** 


*****05********** 
* INSERT * 

♦CONSTANTS LIST * 
.X* FROM STACK ♦ 


***************** 


****«G2 ********** 


* SCAN OF *X 

* CONSTANT * 

* STACK * 

***************** 


IDENTIFIER 


ASTERISK 

*♦. .* 

*• .* 


.* DECIMAL *. 

. INTEGER .* 
♦.CONSTANT .♦ 


***************** 


*****E5* ******* 


* QUALIFICATION * 
***************** 


**«**j 1********** 


ENTRY 
DOWN ONE 
PLACE 


*X *. WITH NEXT 


***************** 


***«*H 3**** ****** 


***************** 


**«**j 3 ********** 


* CURRENT ENTRY * 
***************** 


****F4 *********: 

HASH BCD 

***************: 


«****G4** ******** 


CHAIN SAME 


***************** 


HA *. 

**. N 
FOUND .*. 


.OF SETS DECL- 


***«*H5* ********* 
* * 

* ERROR. * 

.X* WRITE * 

* DIAGNOSTIC * 

* * 
***************** 

\ *♦** 

• * * 

..X* C 3 * 

* * 

**** 

***** j5* ********* 
* * 

* ERROR. * 

.X* WRITE * 


F0ERR2 

****** 2 ********* 

* SOURCE 

* ERROR. 

....* WRITE 

* DIAGNOSTIC 

**************** 


***** 4* ********* 

INSERT * 

DICTIONARY * 

REFERENCE * 

IN SETS * 

ENTRY * 

**************** 


***************** 

X 

**** 

* ♦ 

* C3 * 

* * 

**** 


**** 

* * 

* C3 * 

• * 
**** 
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Chart F0» Phase FO Overall Logic Diagram 


***** 
*F0 * 
* Al* 
* * 


.* NEED 
*. TEXT BE 
*. MOVED 


***************** 


.* PROC 
.X*. OR BEGIN 
*. 

*. ,t 


***** 51 ********** 


SCAN TEXT 


***************** 


***** 63 ********** 

* MAKE DICT * 

♦ENTRY FOR EACH * 

.* OISABLED * 

* CONDITION * 

* PREFIX * 

***************** 


*****54********** 
* * 
♦MAKE DICT. ENTRY* 

* FOR PREFIX * 

* CHANGE BYTE * 

* * 
***************** 


Cl * 

. * 

.* PROC 


>. YES * SAVE DICT REF * 

.* X*OF ENTRY TYPE 1*. 


• X* 


***************** 


*****c 3********** 

* MAKE DICT * 
♦ENTRY FOR EACH * 

DISABLED *. 
CONDITION * 

* PRFFIX * 

***************** 


.* CHECK *. NO 
.X*. OR NOCHECK .*... 
*. LIST .* 


. *. 

DA *. 

.* *. 

.* LIST *. YES 
♦.ITEM * LABEL .*.... 
♦.VARIABLE .* 

*. . * 

*. .* 

* NO 


.* 

.* 

* NO 


: .♦. 

Fl *. 

. * *. 

* ON, *. 

SIGNAL, 

*. OR REVERT.* 

*. .* 


* NO 


»****E2* ********* 
* * 
♦MAKE OICT ENTRY* 
•X* FOR PREFIX ♦ 

* CHANGE BYTE * 

* * 
***************** 


**** 

MVS I G 

*****p 2 ********** 

* * 

YES *SCAN AUTO CHAIN* 

* X* FOR ENTRY FOR *. 

♦THIS CONDITION * 

* * 

***************** 


. *. 

F 3 *. 

* *. 

ENTRY *. NO 
PRESENT .♦... 
.* 


*. 


*. 


. * 


* MAKE * 

* ON— CDND IT I ON *. 

* DICT ENTRY * 

* * 
***************** 


*****P4********** 


***************** 


.*. 

G1 *. 

. * *. 

.* INITIAL *. YES 
►. LABEL ARRAY .*.... 
♦ASSIGNMENT.* 


*. 


. * 


J 010 .*. 

G2 *. 

.* FIRST *. 

.* INITIAL *. YES 
.X*. STATEMENT FOR.*.... 
*. ARRAY .* 

♦. .* 

*. . * 

* NO 


♦****Q3* ********* 

* MAKE * 

SECOND FILE ♦ 
DICT ENTRY * 

* FOR ARRAY * 

* * 
***************** 


.X* 


* MOVE * 

..X* STATEMENT TO *. 
. * OUTPUT TEXT * 

. * * 

. ***************** 


X 

.*. 

HI *. 

. * *. 

.* END OF *. YES 
*. PROGRAM .*.... 
*. . * 


***** 

♦ FQ * 

* Al* 


*****H3**** ****** 

♦MOVE STATEMENT, ♦ *♦♦♦ 

♦ CHAINING * * * 

♦IT TO PREVIOUS ♦....X* B1 * 
♦INITIAL STATEMT* * * 

* FOR ARRAY * *♦** 

***************** 


* MOVE ♦ 

* STATEMENT TO ♦ 

* OUTPUT TEXT * 

* * 
***************** 


. NO 

. *. 

A5 *. 

. * ♦. 

.* END OF *. 
X*. PROGRAM .* 
*. .* 

*. . * 

*. . * 

* YES 


X 

***** 
*F0 * 
* Al* 
* * 

* 


**** 

* * 

X* GA * 
* * 

**** 


***** 05 ********** 
* * 

* MAKE LABEL * 

.X* VARIABLE BCD * 

* DICT ENTRY * 

* * 
***************** 


X 

.*. 

E5 *. 

.* *. 

.* END OF *. NO 
*. LIST 
*• •* 

*. • * 

* YES 


***************** 


**** 

* * 

X* B1 * 
* * 

**** 
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Chart FQ. Phase FQ Overall Logic Diagram 


***** 
*FQ * 
* Al* 


***** 41 ********** 

* * 
♦INITIALIZE AND * 

♦ PICK UP START ♦. 

♦ OF CHAIN ♦ 

♦ * 
***************** 


► A2 ♦ 
* * 
**** 


CYTABL X 

*****A2 ********** 

* CLEAR FLAGS ♦ 

* CALCULATE * 

...X*POSITION OF KEY*. 

* BYTES IN * 

* PICTURE TABLE * 
***************** 


* A3 *... 

* * 

**** . 

CYFNT X 

*****43********** 
♦PICK UP PICTURE* 

* CHARACTER. * 

...X* CALCULATE *. 

* OFFSET. GET * 

* CODE BYTES + 

***************** 


♦****44* ********* 
* * 

* EXECUTE * 

<* TRANSFER ♦ 

* INSTRUCTION ♦ 

* * 
***************** 



Function 

j Routine 

1 

To 

1 

Return 

Picture 

Character 9 

| CYNINE 

1 

FI 

| 

A3 

Picture 

Characters S $ + - 

j CYSDPM 

1 

F2 

1 

A3 

Picture 

Character V 

| CYV 

1 

F3 

1 

A3 

Picture 

Characters , . / B 

j CYCPBS 

1 

F4 

1 

A3 

Picture 

Character E 

| CYE 

1 

F5 

1 

A3 

Picture 

Character K 

j CYK 

1 

G1 

1 

A3 

Picture 

Characters CR, DB 

j CYCRDB 

1 

G2 

1 

A3 

Picture 

Character z 

| CYZ 

1 

G4 

1 

A3 

Picture 

Character y 

( CYY 

1 

G5 

1 

A3 

Picture 

Character G 

j CYG 

1 

HI 

1 

A3 

Picture 

Characters 6, 7 

| CYSS 

1 

H2 

i 

A3 

Picture 

Characters 8 , H 

j CYSSEH 

1 

H3 

1 

A3 

Picture 

Character M 

j CYSTM 

1 

H4 

1 

A3 

Picture 

Character F 

j CYF 

1 

H5 

1 

A3 

Completes Entry 

j CYEK 

1 

J1 

1 

♦ 

End of Chain 

j CYENDD 

1 

J3 

1 

♦ 

— 

— 

i _ 

-A.- 

— 





Chart Location 

I- 1 


| * See Chart 

L 


* PROCESSES * 

* PICTURE * 

* CHARACTER 9 * 

* * 
***************** 


CYSDPM 

*****F2********** 

* PROCESSES * 

* PICTURE * 

* CHARACTERS * 

* * 

* * 

***************** 


*****F3********** 
* * 

* PROCESSES * 

* PICTURE * 

* CHARACTER V * 

* ♦ 
***************** 


CYC PBS 

4* ********* 

* PROCESSES * 

* PICTURE * 

* CHARACTERS * 

* . ♦ / B * 

* * 
***************** 


*****F 5* ********* 
* * 

* PROCESSES * 

* PICTURE * 

* CHARACTER E * 

* * 
***************** 


♦****G1 ********** 
* * 

* PROCESSES * 

* PICTURE * 

* CHARACTER K * 

* * 
***************** 


CYCRDB 

**»**G2 ********** 

* PROCESSES * 

* PICTURE * 

* CHARACTERS * 

* CR, DB * 

* * 
***************** 


CYOTT 

*«***G3* ********* 

* PROCESSES * 

* PICTURE * 

* CHARACTERS * 

* 1 1 2 » 3 * 

* * 
****** *********** 


♦****Q4* ********* 
* * 

* PROCESSES * 

* PICTURE * 

* CHARACTER Z * 

* * 
***************** 


***** 135 ********** 
* * 

* PROCESSES * 

* PICTURE * 

* CHARACTER Y * 

* * 
***************** 


*****m********** 
* * 

* PROCESSES * 

* PICTURE * 

* CHARACTER G * 

* * 
***************** 


* PROCESSES * 

* PICTURE * 

♦CHARACTERS 6,7 * 

* * 
***************** 


* PROCESSES * 

* PICTURE * 

♦CHARACTERS 8,H * 

* * 
***************** 


♦ PROCESSES * 

♦ PICTURE * 

♦ CHARACTER M * 

♦ * 
***************** 


*****(-15* ********* 
* * 

♦ PROCESSES ♦ 

♦ PICTURE ♦ 

♦ CHARACTER F ♦ 

♦ ♦ 
***************** 


; . *. 

J1 ♦. 
.♦ IS ♦ 
.♦ THIS 
>. STERLING 
PICTURE 


*. 


.* 


. * 


*****j2********** 

♦ MAKE SURE ♦ 
♦PICTURE LENGTH ♦ 

.X* AND PRECISION * 

♦ ARE CORRECT * 

♦ ♦ 
***************** 


***************** 


*****K1**** ****** 

* GO THROUGH * 

* AGAIN, * 

* CHECKING *. 

* INDIVIDUAL * 

* FIELDS * 

***************** 


***** 

♦ FT * 

* A2* 
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Chart FT. Phase FT Overall Logic Diagram 


******** ******:*** 


.* TEST *. 

.* FOR *. YES 
*. SECONO FILE .*.... 
*, STATEMENT.* 
♦MARKER.* 


NU .* TEST 
...*. FOR END OF 
*. TEXT 
* . . * 
*. . * 

* YES 
**** . 


***** 02 ********** 


♦DICTIONARY SCAN* 


AF 3 

*****B3********** 

* POINT THF * 

* RELEVANT * 

...X* DICTIONARY *. 

* ENTRY AT THE * 

* STATEMENT * 

***************** 


i I KUL IVKti 
EVENT VARIABLE, 
LABEL VARIABLE, 
CONSTANT, 

LABEL CONSTANT, 
PROC, 

ENTRY, 

FILE PARAMETERS 
BUILTIN, 

BUILTIN GENERIC, 
FILE 


***************** 


.*. TRVECT 

E2 *. **»**£ 3********** 

.* *. * CHAIN THE * 

.* TEST *. YES * DICTIONARY * 

*. DICTIONARY .* X*ENTRY INTO THE * 

*. ENTRY .* * APPROPRIATE * 

*. .* * CHAIN * 

*. .* ***************** 

* NO 


.* TEST FOR *. YES 
*. INHERITED .*.... 
♦DIMENSIONS.* 


*****FL********** 
* GIVE DIMENS. * 
♦TO BASE ELEMENT* 
. X*CREATE 2ND FILF* 
♦STATEMENTS FOR * 
♦VARIABLE BOUNDS* 
***************** 


X 

.*. 

G2 *. 

.* TEST *. 

.* FOR END *. NO 
* • OF DICTIONARY.*... 
*. .* 


*«***G 3 ********** 
# * 

* SKIP TO NEXT * 

<* DICTIONARY * 

* ENTRY * 

* * 
***************** 
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Chart FV. Phase FV Overall Logic Diagram 


* * * * * b 1 * * * * * * * * * * 

4c 4c 

* REVERSE * 

* SECOND FILE * 

* POINTERS * 

* 4c 
******44444**4*44 


FV9 X 

4*44 4C1 ********** 

* GET SCRATCH * 

* STORAGE AND * 

* PICK UP START * 

* OF TEXT * 

4c 4c 

44*44*4**4******* 


4444*444444444444 


. 4c. 

El *. 

. * *. 

.* *. YES 

*. OICT. REF 


. .* 

*. .* 

* NO 


X 

FI *. 


* ADD BASE * 

<* REFERENCE * 

* TO OUTPUT * 

* * 
***************** 


.* *. YES 

*. ALLOCATE 

*. .* 


FV18 

*»***p 2********** 

* SCAN * * 

* ALLOCATE LIST * 

...X*MAKING SEPARATED. 

* STATEMENT FOR * 

* EACH ITEM * 
***************** 


DATCPY X 

*#***G2***f ****** 

* ADD 2ND FILE * 
♦STATEMENTS FOR * 

* EACH ITEM TO *. 

* OUTPUT * 


***************** 


FV19 

**4c*4cH2 ********** 

* SCAN CHAIN * 
*OF ENTRY TYPES * 

•..X* FOR ENTRY *. 

* LABELS * 


444444444444*4444 


•*. FV20 

JX *, *****J2********** 

.4 4. 4 4c 

.* *. YES * PICK UP * 

*. BEGIN .* X* ENTRY TYPE 1 *. 

4. .4 4 4 

4. . 4 4 4 

4* .4 44444444444444444 

* NO 


DATCPY 

*****H0********** 

* IF LABEL * 

* RETURNS * 

...X* ADJUST STRING * 

* ADD 2ND FILE * 
♦STATEMENT TO OP* 
***************** 


SCAN AUTO 
CHAIN FOR 
BLOCK 


***************** 


DATCPY 

*****J4********** 

* MOVE ANY 2ND * 
♦FILE STATEMENTS* 

...X*FOR VAPIABLE TO*. 

* OUTPUT * 


***************** 


. YFS 

. *. 

J5 *. 


. . * 

*. . * 

* NO 
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Chart FX 


Phase FX Overall Logic Diagram 


***** 
*FX * 
* A2* 


*****A2*** ******* 

* LOAD IEMFY. * 

* GET SCRATCH * 

* STORAGE AMO * 
♦TEXT BLOCK FOR * 

* SORT TABLE * 
***************** 


SCAN STATIC 
CHAIN 


***************** 


. YES 

.*. 

B 3 *. 

.* FILE *. 

.♦ATTRIBUTE, *. NO * * 

. X*C0MP I LER LABEL.* X* SORT ENTRY *. 

ON CONDITION* * * 

♦.NAME .* * * 

*. .* ***************** 


. NO 

FX0G30 .*. 

B5 *. 


.* END *. 
.X*. OF CHAIN .< 
*. .* 
*. .* 

*. .* 

* YES 


***************** 


***************** 


.*. 

G1 *. 

« * *. 

•* END OF *. YES 
K. TEXT 
*. •* 

*• • * 

* NO 


.* END *. NO 

. OF 

*. CHAIN .* 


***£ 

* * 

♦ E2 *.X. 

* * .X 

**** 

FX0I70 X 

2 ********** 


** ** £***££ ££****£ 


*• 


*. . * 

*. • * 

* 

**** 

* * 

* 62 *... 

* * 

**** . 

FXPRNT X 

*££**Q2 ********** 


. X*$CAN SORT CHAIN** 
* * 

* * 

***************** 


. *. 

HI *. 

. * *• 

NO .* *. 

X..*. DICT REF .* 

*. .* 

*. .* 

*. .* 

* YES 


♦****J1 ********** 

* ADD STATEMENT * 
♦NUMBER TO CHAIN* 

...» FOR THIS DICT * 

* ENTRY * 

* * 
***************** 


*. .* 
*. .* 

* YES 


END *. 
OF .* 

CHAIN .* 


***************** 


. * . 

F 3 *. 

.* *. 

.♦ALLOCATION *. NO 
.X*. OR .*... 

♦.PARAMETER.* 

*. . * 

*. .* 

* YES 
. **** 

. * * 

..X* E 2 * 

* * 

**** 


* PRINT BCD 
.X AND DCL NO. 

* (IF ANY) * 

************* 


. * *. 

.* ATT R *. NO 
*. LISTING .*... 
*. REQD .* 


***************** 


YES .* BCD, ON *. 
....*. CONDITION .< 
♦ENTRY TYPE.* 


******J3*********** 


*****FA********** 


, X* SORT ENTRY 


***************** 


. * * . 

.* XREF *. 
.X*. LISTING 
*. REQD .* 


************* 


REFMOV 

******j************ 

SCAN CHAIN OF 
* STATEMENT * 
NUMBERS AND 
* PRINT THEM * 


SORT FNTRY 


***************** 


**** 

* t 

* G2 * 


NO 


. *. 

H5 *. 

. * *. 

.* END OF *. 

. SORT .* 

*. CHAIN .* 

*. . * 


***** 
*GA * 
* A?* 
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Table EG. Phase EG Dictionary Initialization 


Statement or Operation Type 

T - 

jMain Processing 
j Routine 

j 

T - - - - 

| 

j Subroutines Used 

Hashes labels 

| CAA1 

| CHASH, CBCDL2 

-L 

PROCEDURE-BEGIN chain 

I 

| CA7 

1 .. .. 

1 

| None 

j. 

BEGIN 

T 

j CA8A 

i 

T 

| None 

_l _ ... . .... 

PROCEDURE 

+ — 

| CAP ROC 

T 

| CANATP, CFORP 

| _ _ .... 

ENTRY 

| 

j CA10 

1 

J CANATP, CFORP 

j ... . . ... 

Formal parameters 

T 

| CFORP 

1 

1 

|CHASH, CBCDL2 

l _ T 

Attribute list 

1 

j CAN ATP 

.j. 

1 

JCAPRE1, CATCHA, CATBIT, CATPIC 

.j. 

Creates entry type 2 entries for 
labels 

| CTYPBL 

1 

. J. 

1 

] ENT2F, CDEFAT 

1 


Table EG1. Phase EG Routine/Subroutine Directory 

r t 

| Routine/Subroutine j Function 

K + 


j CAA1 

| Scans label table and hashes labels. 

1 


| CANATP 

I 

| Processes 

i 

attribute list. 


| CAPROC 

1 

| Processes 
■ 

PROCEDURE statements. 


| CAPREl 

1 

| Processes 

i 

precision data. 


| CATBIT 

1 

| Processes 

i 

BIT attribute. 


j CATC HA 

1 

| Processes 

i 

CHARACTER attribute. 


| CATPIC 

1 

| Processes 

PICTURE attribute. 


| CA6 

1 

| Scans the 

i 

PROCEDURE-BEGIN chain for the relevant statements. 


JCA8A 

1 

| Processes 

i 

BEGIN statements. 


j CA10 

1 

| Processes 

■ 

ENTRY statements. 


| CBCDL2 

1 

| Traverses 
j that just 

i 

the hash chain looking for entries with the same BCD as 
found. 


| CDEFAT 

1 

| Completes 

i 

data byte for entry type 2 entries by default rules. 


j CFORP 

1 

| Processes 

formal parameter lists. 


| CHASH 

i 

| Obtains an address in the hash table for an identifier. 


| CTYPBL 

1 

j Creates entry type 2 entries for labels. 


| ENT2F 

1 

| Creates or copies second file statements. 


| TYPW 

1 

| Scans ENTRY chain. 



i x j 


i 
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Table El. Phase El Dictionary Declare Pass One 

r t t 

Main Processing 

Statement or Operation I Routine 


Subroutines Used 


Scans DECLARE statement 

jcCGSO 

j None 

4 .............. ...... 

Scans text 


T 

| CCGS2 

j_ 

1 

| None 

4 _ ... 

Processes structure 

level 

T 

| CCGSCM 

4. 

1 

J None 

-j- 

Factored attribute, 
parenthesis 

left 

T 

| CCFLP 

i 

| CFPMCR 

1 

4 _ 

Factored attribute, 
parenthesis 

right 

-j. 

| CCFRP 

1 

-j- 

1 

| None 

1 

Data following DEFINED attribute 

| CCDEF 

1 

-j- ^ 

| NEWBLK, CTXTRM 

4. 

POSITION 


T 

j POSIT 

j. 

T 

j None 

4. 

CHARACTER, BIT 


1 

jCHABIT 

1 ._ 

T 

| CTXTRM 

4. 

PICTURE 


T 

JCATPIC 

1 

T 

|None 

l - 

USES, SETS 


T 

| SETS 

1 . 

T 

| None 

LIKE 


T 

[like 

1 

T 

| None 

4 - 

KEY 


1 

1 KEYED 

I 

j None 

Dimension 


j CDDIMS 
x _ 

| CTXTRM, AST, TOMENE, ERRORB 

4 _ 

Precision 


1 

| CDPREC 

1 

| ERRNEG, SCLBIG 

INITIAL 


(EJINIT 

j CECON, EHINIT 

INITIAL CALL 


_ 1 _ 

1 INCALL 

. | . ... 

| CTXTRM 


Table Ell. Phase El Routine/Subroutine Directory 


r T~ 

| Routine/Subroutine | 


Function 


j AST 

1 Deals with 

i 

the case of * dimension bounds mixed with non-* bounds. 


j CATPIC 

1 

| Processes 

1 

PICTURE attributes. 


| CCDEF 

1 

| Processes 

t 

data following DEFINED attribute. 


| CCFLP 

1 

| Processes 

i 

factored attributes (left parenthesis). 


| CCFRP 

1 

| Processes 

i 

factored attributes (right parenthesis). 


| CCGSCM 

1 

( Processes 

i 

structure level. 


| CCGSAT 

1 

| Attribute 

routine selector. 


| CCGSE 

i 

(Scans DECLARE chain. 

1 


| CCGSOO 

1 

| Scans text 

1 

* 


1 CCGS2 

i 

(Scans source text. 

1 


(CDDIMS (EJ) 

i 

| Processes 

dimension attributes. 
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Table Ell. Phase El Routine/Subroutine Directory (cont'd) 


| Routine/Subroutine | Function 

j- + 

| CDPREC (J) j Processes precision attributes. 


CECON (EH) 


CFPMCR 


CHABIT 


CSGSOO 


CTXTRM 


EHINIT (EH) 


EJINIT (EJ) 


ERRNEG 


ERRORB 


GENTRY 


INCALL (EJ) 


IVROOM (EH) 


IVPUTL (EH) 


IVPUTC (EH) 


IVPDTO (EH) 


KEYED 


NEWBLK 


POSIT 


SCLBIG 


SECON 


TOMENS 


Makes a dictionary entry for a constant unless one has already been 
made. Returns the dictionary reference of the constant entry. 


Obtains more storage for the factored attribute table. 


Processes CHARACTER and BIT attributes. 


| Detects end of DECLARE chain. 

Tests for space in current text block and obtains new block if nec- 
essary. 

Processes the INITIAL attribute except for the initialization of 
label variables and INITIAL CALL. 

Processes INITIAL attribute and LABEL with a label-constant list. 

Deals with the case of a negative precision specification. 

Deals with the case of lower dimension bound declared greater then 
the upper bound. 

Keeps a count of parentheses in GENERIC and ENTRY processing. 
Processes INITIAL CALL attributes. 

Checks if there is space in scratch storage for another entry. If 
not, it makes a dictionary entry and chains it to the previous one 
or to the C8 in text as required. 

Places a dictionary reference in the 'initial list' for a label 
constant. If the constant is not known, a dummy reference is 
inserted. 

Places a dictionary reference in the 'initial list* for a constant. 

Places the dictionary reference of zero in the * initial list* for a 
negative or imaginary replication factor. 

Processes KEY attributes. 

Processes LIKE attributes. 

Obtains new text block. 

Processes POSITION attributes. 

Deals with the case when the scale factor in a precision specifi- 
cation for fixed-point data is declared too large. 

Creates a dictionary entry for a constant provided the appropriate 
entry has not been already made. 

Processes USES and SETS attributes. 

Deals with the case when the number of dimensions declared is great- 
er than 32. 
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Table EL, Phase EL Dictionary Declare Pass Two 


I 

I- 

f 

I- 

1 - 


Statement or Operation Type 

|Main Processing! 

| Routine | 

.X J. 

Subroutines Used 

Scans chain of DECLARE statements 

| CGENSC 

j. 

j CDCLSC 

-_j_ 



Scans each item of DECLARE 
statement 

1 

jCDCLSC 

1 

I 

.J. 

j ATLSCN, 
jcDIMAT, 
j SELMSK, 

BCDPR, CDFLT, CDICEN, 
DCIDPR, INTLZE, POSTPR, 
STRPR 

Initializes each identifier 
declared 

j INTLZE 

1 

| DCIDPR 

1 

+ 



- T 

Processes factor brackets and level |DCIDPR 
numbers j 

X 

j TEMSCN, 

1 

BCDPR 


Scans for next level number 

j TEMSCN 

| CDATPR 

.j. 



Processes BCD of identifier 

i 

| BCDPR 

-4- 

| BCDISB, 

-4- 

CHASH, SELMSK 


Hashes BCD of identifier 

1 

JCHASH 

T 

| None 

.j. 



Scans list of attributes following 
identifier 

j ATLSCN 

1 

.4. 

j CDATPR 
! 



Applies factored attributes 

T 

| CDFATT 

j CDATPR 

-4_ 



Applies implicit attribute 

| IMP ATT 

.4. 

1 

| None 
-+ 



Attributes controlling routine 

T 

| CDATPR 

1 

1 

1 

1 

1 

1 

T 

| CDAT40, 
j CD AT4 4 , 

J CDAT4A, 

| CDAT4F, 

| CDAT57, 
j CDAT61, 
j CDAT6 9 , 

CDAT41, CDAT42, 
CDAT45, CDAT48 , 
CDAT4B, CDAT4C, 
CDAT54, CDAT55, 
CDAT58, CDAT59, 
CDAT62, CDAT63, 
CDAT6A, CDATB4 , 

CDAT43, 

CDAT49, 

CDAT4D, 

CDAT56, 

CDAT60, 

CDAT64, 

CDATB8 


i 
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Table ELI. Phase EL Routine/Subroutine Directory 


r T - 

| Routine/Subroutine J 


Function 


ATLSCN 


J Scans the 

list of attributes following the identifier 

BCDISB 


i 

| Checks for multiple declarations, etc. 

1 

BCDPR 


i 

| Processes 

i 

BCD of identifier. 

CDATB4 

(EK) 

1 

| Processes 

i 

SECONDARY attribute. 

CDATB8 

(EK) 

1 

| Processes 

1 

POS attribute. 

CD AT PR 

(EK) 

1 

| Attribute 

i 

controlling routine. 

CDAT40 

(EK) 

1 

| Processes 

1 

DECIMAL attribute. 

CD AT 41 

(EK) 

J Processes 

BINARY attribute. 

CDAT42 

(EK) 

1 

| Processes 

FLOAT attribute. 

CDAT43 

(EK) 

1 

| Processes 

i 

FIXED attribute. 

CDAT44 

(EK) 

1 

| Processes 

i 

REAL attribute. 

CDAT45 

(EK) 

1 

| Processes 

i 

COMPLEX attribute. 

CDAT48 

(EK) 

1 

| Processes 
■ 

VARYING attribute. 

CDAT49 

(EK) 

1 

| Processes 

| 

PICTURE attribute. 

CDAT4A 

(EK) 

1 

| Processes 

BIT attribute. 

CD AT 4 B 

(EK) 

I 

j Processes 

i 

CHARACTER attribute. 

CD AT 4 C 

(EK) 

1 

| Processes 

FIXED DIMENSIONS attribute. 

CDAT4D 

(EK) 

1 

| Processes 

I 

LABEL attribute. 

CDAT4F 

(EK) 

1 

| Processes 

i 

ADJUSTABLE DIMENSIONS attribute. 

CDAT54 

(EK) 

i 

| Processes 

ABNORMAL attribute. 

CDAT55 

(EK) 

1 

J Processes 

NORMAL attribute. 

CDAT56 

(EK) 

1 

[ Processes 

1 

USES attribute. 

CDAT57 

(EK) 

1 

| Processes 

■ 

SETS attribute. 

CDAT58 

(EK) 

1 

j Processes 

i 

ENTRY attribute. 

CDAT59 

(EK) 

1 

| Processes 

i 

GENERIC attribute. 

CDAT60 

(EK) 

1 

| Processes 

i 

EXTERNAL attribute. 

CDAT61 

(EK) 

1 

| Processes 

INTERNAL attribute. 

CDAT62 

(EK) 

1 

| Processes 

i 

AUTOMATIC attribute. 

CD AT 6 3 

(EK) 

1 

| Processes 

1 

STATIC attribute. 

CDAT64 

(EK) 

1 

J Processes 

1 

CONTROLLED attribute. 

CDAT69 

(EK) 

1 

| Processes 

1 

INITIAL attribute. 

CDAT6A 

(EK) 

1 Processes 

LIKE attribute. 
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1 


Table ELI. Phase EL Routine/Subroutine Directory (cont*d) 

Function 


r T - 

| Routine/Subroutine | 


h 


j CDAT6B (EK) 

j Processes DEFINED ATTRIBUTE. 

1 


| CDCLSC 

I 

| Scans each item of DECLARE statement. 


| CDFATT (EM) 

1 

| Applies factored attributes. 

■ 


| CDFLT (EM) 

1 

| Applies default attributes. 

i 


| CDICEN (EM) 

1 

| Constructs dictionary entry. 

i 


| CGENSC (EM) 

1 

| Performs phase initialization and scans chain of DECLARE 

i 

statements. j 

| CHASH (EM) 

1 

| Hashes BCD of identifier. 

i 


j DCID1 

1 

|Main scan routine. 

1 


| DCIDPR 

1 

(Processes factor brackets and level numbers. 


| ECHSKP (EK) 

1 

(Initializes and passes control to Module EM. 

i 


| IMP ATT (EM) 

1 

(Applies implicit attributes. 

i 


| INTLZE 

1 

(Performs initialization for each identifier declared. 


j POSTPR 

1 

J Post-processor. 

I 


| SCAN4 (EM) 

1 

(Scans chain of DECLARE statements. 

i 


| SELMSK 

1 

(Selects correct test mask to be initialized. 


| STRPR 

1 

(Processes inheriting of dimensions in structures. 

i 


| TEMSCN 

1 

| Scans ahead for next level number. 
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Table EP. Phase EP Dictionary Entry III and Call 

r t t 

Main Processing 

Statement or Operation Type 


Routine 


Subroutines Used 


Scans for PROCEDURE entries type 1 


ENTRY3 


None 


Follows chain of ENTRY statement 
entry type 1 entries from a PROCE- 
DURE entry type 1 


EPL40 


None 


+- 


Examines all labels belonging to an 
entry type 1, constructing an entry 
type 3, if necessary 


LBPROC 


None 


Follows CALL chain in text making 
dictionary entries for entry points 


EPL290 


None 


Examines the first character of an 
identifier and sets a flag indicat- 
ing the range in which it lies 


CDIMAT 


None 


Applies default rules 


CDFLT 


None 


Given an identifier calculates its 
offset in the hash table 


CHASH 


None 


Constructs a dictionary entry 


CDICEN 


None 


Sets address slot to zero or the 
end of the dictionary 


FNDEND 


None 


Constructs list of numbers of known 
blocks 


BLDST2 


None 


| Built in function name 
l 


SCANBF 


None 
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Table EP1. Phase EP Routine/Subroutine Directory 


r t* 

| Routine/ Subroutine | 


Function 


| BLDST2 

J Constructs list of numbers of known blocks. 

i 


1 CDICEN 

1 

| Constructs dictionary entry. 

1 


| CDIMAT 

1 

(Sets flag for default routine. 

1 


| CDFLT 

1 

| Applies default rules. 

i 


|CHASH 

1 

| Calculates offset in hash table for given BCD. 

i 


| ENTRY3 

1 

| Scans ENTRY chain for PROCEDURE statements. 

1 


| EPL20 

1 

| First entry in entry type 1 chain. 

1 


| EPL40 

1 

| Scans ENTRY chain for ENTRY statements type 1. 

i 


| EPL75 

1 

| Return point from LBPROC routine. 

i 


| EPL100 

1 

| Processes new entry label. 

i 


| EPL290 

1 

| Scans CALL chain. 

i 


| EPL340 

1 

(Searches built-in function table for BCD of identifier. 


| EPL360 

1 

| Blanks out BCD in text. 

1 


| EPL600 

1 

| Scans the CALL chain. 

i 


| FNDEND 

1 

|Sets address slot for label. 


| LBPROC 

1 

(Processes labels of PROCEDURE or ENTRY statements. 


| PHSINT 

1 

J Initialization of phase. 

i 


| PHSMRK 

1 

| Marks later modules as * wanted* or * not wanted'. 

1 


| SCANBF 

1 

(Checks for built-in function name. 
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Table EW. Phase EW Dictionary LIKE 


Statement or Operation Type 

"T 

| Main Processing 
| Routine 

.4 . _ . 

T 

fl 

1 

4 . _ 

Subroutines Used 

Scans LIKE chain 

T 

j EWBEGN 

T 

j EWCOPY, 
.4 

EWELDM, EWINCH, EWONDM 

Updates hash chain for new entry 

1 

| EWHSCN 

.4. _ 

1 

| None 

■ X _ 


Calculates start of structure data 
from start of variable information 

1 

| EWVART 

1 

T 

| None 

1 

-X 


T 

Changes error entry to base element J EWCHEN 

_L 

T 

| None 

j ... .... . 


Copies dimension table entry and 
second file statement 

] EW2FNT 

1 

.X _ 

1 EWNWBK 

1 

■X _ 



Table EW1. Phase EW Routine/Subroutine Directory 


r T“ 

| Routine/Subroutine j 

I" 


Function 


CESCN 

EWBEGN 

EWCHEN 

EWCOPY 

EWELDM 

EWELTS 

EWEND 

EWERNC 

EWHSCN (EX) 

EWINCH 

EWNOLK 

EWNWBK 

EWONDM 

EWORDM 

EWSTRT 

EW2FNT 


Scans dictionary to find entry corresponding to BCD in text. 

Scans LIKE chain. 

Changes error entry to base element. 

Copies dictionary entry into scratch storage. 

Copies entry into scratch storage with dimension data removed. 

Tests whether the likened structure is dimensioned. 

Handles transfer of control to next phase. 

Processes erroneously "likened" major structure. 

Updates hash chain for new entry. 

Completes entry copy and places it in dictionary. 

Tests whether original structure is dimensioned. 

Obtains new dictionary block and terminates current one in use. 
Copies entry into scratch storage, inserting dimension information. 
Processes dimension information in original structure. 

Tests validity of likened structure. 

Copies second file statement and associated dictionary reference. 
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Table EY. Phase EY Dictionary ALLOCATE 
r 


T T 

| Main Processing! 

I Routine J 

1- + 

| Second file pointers. Scans ALLO- | IEMEY 

| CATE statements | 

I- + 

| Completes copied dictionary entry |ATPROC with jMOVEST 

| for an allocated item j second entry \ 

| j point ATPROD j 

J- + 1 

| Controls ATPROC and ATPROD routines | STRCPY 
| for each member of a structure | 

L J. 


Statement or Operation Type 


Subroutines Used 


| ATPROC, DICBLD, HASH, STRCPY 

I 

+ 


| ATPROC, ATPROD 

I 

J. — 


Table EY1. Phase EY Routine/Subroutine Directory 


r t- 

| Routine/Subroutine | 

^ + . 


Function 


ATPROC /ATPROD (EZ) 

DICBLD 

EY16 
EY17 
EY21 
HASH 
IEMEY 

MOVEST (EZ) 

STRCPY 


Complete copied dictionary entry for allocated item by including 
attributes from ALLOCATE and second file statements. 

Collects attribute given for an identifier and copies its dictionary 
entry. 

Processes ALLOCATE statements. 

Processes identifier in ALLOCATE statement. 

Processes major structures. 

Hashes BCD of identifier to obtain its dictionary reference. 

Scans second file, reverses pointers. Scans ALLOCATE statements. 
Copies second file statement and associated dictionary entry. 
Controls ATPROC and ATPROD for each member of structure. 


Table FA. Phase FA Dictionary Context 
r T - - 


Statement or 

Operation 

Type 

|Main Processing 
J Routine 

-j- 

| 

j Subroutines Used 

Scans text 



| CE30 

|CENDTS, CETRAN 

1 ... 

Reorders subscripts; makes 
tionary entry for file and 
variables 

dic- 

event 

j CEID 

1 

1 

.J. 

T 

| CESCN 

1 

1 

1 ... . .... 

Identifies keywords 


T 

| CEKYWD 

i 

|CEKEND, CEKEOB, CEKEOP, CEKON, 
j CEKPRC, CEKSND 

1 ..... 

Scans dictionary 



i 

| CESCN 

1 

1 

| CESTUC, CEYES, CFPDER, CFPDR2 , 
ICHASH, CE3XX 

1 _ . 

Makes dictionary 
bles 

entry for 

varia- 

T 

| CFPDR2 

1 

4. 

r 

|CDFLT, CDICEN, CDIMAT, CEONCK 

1 

Scans dictionary 
stants and makes 
necessary. 

entry for 
new entry. 

con- 

if 

1 

| CECON 

i 

i 

j CHASH 

1 

1 

_L ... _. ... 

Scans PICTURE chain entry and makes 
new entry, if necessary. 

'iCEPICT 

1 

1 

J None 

1 
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Table FA1. Phase FA Routine/Subroutine Directory 


r T" 

| Routine/Subroutine | 


Function 


| CDFLT 

(Determines default attributes for identifier. 

1 


| CDICEN 

1 

(Constructs default dictionary entry for identifier. 

i 


| CDIMAT 

1 

(Determines default scale for identifier. 

1 


| CEBNK 

1 

(Transfer point for zero or blank. 

i 


|CECON (FB) 

1 

| Scans dictionary entry for constants. 

j 


| CEDWAX 

1 

(Subscript prime text marker. 

1 


| CEID 

1 

(Reorders subscripts and makes dictionary entries for files 
(variables. 

i 

and eventj 

| CEINT 

( 

(Transfer point for constant routine. 


| CEISUB 

1 

(Transfer point for iSUB. 

i 


| CEKCEN 

1 

(Transfer point for CALL to get over chain. 

i 


| CEKDCL 

1 

(Removes SN from DECLARE statements. 

i 


| CEKEND 

1 

(Processes END keyword. 

1 


| CEKEOB 

(Processes end-of-block marker. 


| CEKEOP 

1 

| Handles end-of-program marker, or start of second file. 


| cekey 

1 

(Transfer point for keyword. 

| 


| CEKIDO 

1 

(Transfer point for iterative DO. 


| CEKON 

1 

(Processes ON keyword. 

1 


| CEKPFR 

1 

(Transfer point for picture, format item. 


| CEKPRC 

1 

| Processes PROCEDURE keyword. 

i 


| CEKSN 

I 

| Moves SN, etc., to output stream. 

i 


| CEKSND 

i 

(Processes start of second file statement. 

I 


| CEKYWD 

I 

| Identif ies keywords . 

i 


|£ELP 

1 

(Transfer point for left parenthesis. 

I 


| CENDTS 

1 

(End of text block in output file routine. 


| CEONCK 

1 

(Makes entry for programmer-named ON condition. 

1 


| CEPFDR 

1 

| Makes dictionary entry for variables. 

1 


|CEPICT (FB) 

1 

| Scans picture chain entry. 

i 


J CERP 

1 

(Transfer point for right parenthesis. 

1 


| CESCN 

1 

(Scans dictionary. 

1 


J CESMCL 

1 

(Handles semicolon. 

i 


| CESTUC 

( Points at next entry in structure chain. 
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Table FA1. Phase FA Routine/Subroutine Directory (cont*d) 

r t 1 

| Routine/Subroutine | Function | 


r 

| CETRAN 


| Translates keyword into transfer instruction. 

i 

1 

| CEYES 


1 

| Compares structure levels. 

i 


| CE2L 


1 

(Transfer point for second level marker. 

i 


| CE30 


1 

(Controlling scan of text. 

I 


| CE31 


! 

| Tests for end of block. 

1 


| CE32 


1 

(Moves one byte to output stream. 

1 


| CE300 


1 

(Switches to appropriate routine. 

1 


| CE3XX 


1 

(Compares identifier in text with entry in dictionary. 

1 


| CFPDER 

(FB) 

1 

| Makes dictionary entry for ordinary identifier. 


| CFPDR2 

(FB) 

1 

| Makes dictionary for formal parameter. 

1 


| CHASH 


1 

| Hashes identifier. 

| 


| CHASHC 


1 

(Hashes constant. 

| 


| IEMFA 


1 

(Initializes phase. 


L 



j 


Table FE 
r 


Phase FE Dictionary BCD to Dictionary Reference 
Statement or Operation Type 


"T T 

| Main Processing 
I Routine 

4 


Subroutines Used 


Scans text 

| CE30 

L _ 

| CENDTS, CETRAN 

^ x __ __ 


Scans dictionary 

1 

| CESCN 

1 

-j- 

( CESTUC, CEYES, 

| CHASH, CE3XX 

X 

CFPDER, CFPDR2, 

Checks for array, function, or 
pseudo-variable if left parenthesis 
is found 

(celp 

1 

1 

j. 

( CEFNCT 

1 

1 

+ 


Tests for end of text block 

(CENDTS 

X 

j CEKEND, CEKIDO, 

X 

CEKPRC 

Identifies keywords 

T 

( CEKYWD 

X 

1 

| CEKEOB, CEKEOP 
-j. 


Makes dictionary entry 

T 

( None 

jcDFLT, CDICEN, 

CDIMAT 


—j 


Section 3: Charts and Routine Directories 125 



Table FE1. Phase FE Routine/Subroutine Directory 


r T - 

J Routine/Subroutine | 


Function 


j CDFLT 

| Applies default rules. 

i 



| CDICEN 

1 

(Constructs dictionary entry. 

I 



| CDIMAT 

1 

|Sets flag for default routine. 

i 



| CEFNCT 

1 

| Tests validity of function reference in text. 

i 

* 


| CEKEND 

1 

(Processes END keyword. 

i 



| CEKEOB 

1 

(Processes end-of-block marker. 

i 



| CEKEOP 

1 

(Processes end-of-program marker, or start of second 

i 

file. 


ICEKIDO 

1 

| Processes iterative DO keyword. 

i 



| CEKPRC 

1 

(Processes PROCEDURE keyword. 

i 



| CEKYWD 

1 

(Identifies keyword. 

1 



| CELP 

i 

(Checks for array, function, or pseudo-variable if left parenthesis 
j is found. 


| CENDTS 

i 

| Tests for end of text block in output file. 

i 



| CESCN 

1 

| Scans dictionary. 

i 



| CESTUC 

1 

| Points at next entry in structure chain. 



j CETRAN 

1 

(Translates keyword into transfer instruction 

I 



| CEYES 

1 

(Compares structure levels. 

1 



| CE30 

1 

| Controlling scan of text. 

I 



| CE3XX 

1 

J Compares identifier in text with dictionary entry. 

I 



| CFDICN (FF) 

1 

| Makes dictionary entry. 

i 



| CFPDER 

1 

| Makes dictionary entry for statement with ordinary 
■ 

identifiers. 


| CFPDR2 

1 

| Makes dictionary entry for formal parameters. 

I 



| CHASH 

1 

(Calculates offset in hash table for given BCD. 




Table FI 
r 


Phase Fi Dictionary Checking 
Statement or Operation Type 


T T' 

| Main Processing! 

| Routine I 


Subroutines Used 


|. 

| Scans text 

L 

+ 

| CESTRT 

4 

+ 

( CEKEYW 

4 

r 

| Identifies keywords 

L 

1 

( CEKEYW 

4 

T 

(CEKEOB, CEKEOP, CEKIDO, CEKSN 

4 

1 

| Checks GOTO statement 

I 

1 

references JCEGOTO 

4 

1 

( None 

4 . 

r 

| Converts GOTO to GOOB, 

l 

1 

if necessary j CEGOB 

T 

| None 

4 . _ , ...... 

r 

(Checks file references 
l 

j CEFILE 

4 

1 

| None 

4 

1 

| Checks data list items 

T 

for validity | CEDTCK 

1 

| None 
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Table Fll. Phase FI Routine/Subroutine Directory 


r T* 

| Routine/Subroutine J 


Function 


j CECMBK 

| Tests value of previous second level marker. 

1 


| CEDDOL 

J Processes function names used as control variables for DO groups. 

1 


| CEDOND 

| Processes end of iterative DO groups. 

i 


| CEDREF 

1 

| Tests whether dictionary reference needs to be checked. 
i 


| CEDTCK 

1 

J Checks data list items for validity. 

i 


| CEFILE 

1 

| Checks file references. 

i 


| CEFNMK 

1 

| Processes function markers. 

i 


| CEGOB 

1 

| Converts GOTO to GOOB, if necessary. 

1 


| CEGOTO 

1 

| Checks GOTO statement references. 

1 


| CEISUB 

1 

| Processes iSUBs. 


| CEJUMP 

1 

| Bumps scan pointer over dictionary reference. 

I 


| CEKEND 

1 

(Processes END statements. 

■ 


| CEKEOB 

1 

| Processes end-of-block marker. 


| CEKEOP 

1 

(Processes end-of-program marker. 

i 


| CEKEYW 

1 

(Identifies keywords. 


| CEKIDO 

1 

(Processes iterative DO keyword, 
j 


| CEKON 

(Processes ON statements. 

1 


| CEKSN 

1 

(Processes statement number. 

i 


| CELRCT/CERPCT 

i 

(Process left and right parentheses. 

1 


j CEOOPS 

1 

| Checks validity of keywords in the text. 

i 


| CEPRBG 

1 

(Processes PROCEDURE and BEGIN statements. 

i 


| CERFMT 

1 

(Processes remote format references. 


| CESMCL 

1 

(Processes semicolons. 


| CESTRT 

1 

(Controlling scan of text. 
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Table FK. Phase FK Dictionary Attribute 
r 


T T" 

| Main Processing! 

I Routine I 


Statement or Operation Type 


Subroutines Used 


j Scans attributes area for SETS 
| lists 

i .... 

| FOIA 

1 

j None 

1 

4 

1 

| Scans SETS list 

i _ . . . _ .. . 

| 

j F02 

1 _ 

T 

| None 

r ^ * 

| Processes constants 

1 

T 

| CONPRO 

1 

| None 

i 

r 

(Processes identifiers 

| CESCN 

| CESTUC, CE3XX, CHASH 


Table FK1. Phase FK Routine/Subroutine Directory 


r T - 

| Routine/Subroutine | 


Function 


j CEIDLP 

j Scans qualified name. 

i 


| CENQUL 

1 

(Processes unqualified name. 

i 


j CESCN 

1 

(Processes identifier 

1 


j CESTUC 

(Finds address of next structure in chain. 


| CE3XX 

1 

(Compares current BCD with BCD in hash chain. 


| CHASH 

1 

(Calculates offset in hash table for given BCD. 

f 


| CMPERR 

I 

(Provides terminal error action. 

i 


| CONPA 

1 

( Inserts constant in ordered stack. 

i 


| CONPRO 

1 

(Processes constants. 


| ENDFO 

(Releases control. 

i 


| F0ERR2 

1 

(Diagnoses constant greater than 255. 

I 


| FOIA 

1 

| Scans attribute tidy-up area. 


| F02 

1 

| Scans SETS list. 


pF04 

1 

(Completes SETS dictionary entry. 

I 


| GETSCR 

1 

(Obtains scratch storage. 



128 



Table FO. 
r 


Phase FO Dictionary ON 


T T 

Main Processing 
Routine 


Statement or Operation Type 


Subroutines Used 


Scans input text for ON, SIGNAL, 
and REVERT statements 


FKMVIT 


BEFTRN, CENDTS, QP 


Moves second file from input text 
block to output text block 


F2 


CENDTS, BEFTRN 




Makes dictionary entries for 0N- 
conditions found in ON, SIGNAL, and 
REVERT statements 


FKDCEN 


LAB CD 


Examines BCD of file entries ref- 
erenced in ON, SIGNAL, and REVERT 
statements; scans previous entries 
for ON conditions 


MVSIG 


CENDTS 


Processes CHECK and NOCHECK list. 


BEFCHL 


CENDTS, LABCD 


Creates dictionary entries for 
condition prefixes 


NOMOVE 


QP 


Table F01. Phase FO Routine/Subroutine Directory 


r T‘ 

| Routine/Subroutine | 

f- 


Function 


BEFCHL 

BEFTRN 

CENDTS 

FKDCEN 

FKMVIT 
FKNOCK 
FKPROC 
FP010 (FP) 

F2 

LABCD 

MVSIG 

NOMOVE (FP) 

Q3 

CP 

R8 


Processes CHECK and NOCHECK list. 

Replaces statements containing dummy dictionary references by error 
statements, and generates error message. 

Requests a new text block for output. 

Makes dictionary entries for ON conditions found in ON, SIGNAL, and 
REVERT statements. 

Scans input text for ON, SIGNAL, and REVERT statements. 

Processes CHECK and NOCHECK lists. 

Scans input text for ON, SIGNAL, and REVERT statements. 

Chains initial label statements and makes second file dictionary 
entries for each label array initialized in this way. 

Moves second file from input text block to output text block. 

Creates a dictionary entry for each label constant and each entry 
label mentioned in a CHECK list. 

Examines BCD of file entries referenced in ON, SIGNAL, and REVERT 
statements; scans previous entries for ON conditions. 

Creates dictionary entry for condition prefix. 

Processes condition prefixes changed in current block. 

Determines which condition prefixes require dictionary entries. 

Moves statement to output buffer. 


j 
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Table FQ. Phase FQ Dictionary Picture Processor 

f T T 

Main Processing 

Statement or Operation Type I Routine 




Subroutines Used 


Controls scan of PICTURE chain 
initializes 

; j CYBR3 

1 

-j- 

jCYEK, CYFIND, CYT&BL 

1 

j. 

Picture 

character 

9 

} CYNINE 

.j. 

T 

| None 

4 

Picture 

characters 

° > $ # ■*"# — • 

| CYSDPM 

.j. 

T 

| None 

4 . ^ 

Picture 

character 

V 

| CYV 

j. 

1 

| None 

Picture 

character 

E 

| CYE 

-r- . . 

| CYC 21 

Picture 

character 

K 

jCYK 

j. 

j CYC21 

4- 

Picture 

characters 

C»R»D,B. 

T 

| CYCRDB 

J. 

T 

| None 

4 . 

Picture 

characters 

1,2,3 

T 

| CYOTT 

-j- 

T 

| None 

4 . , , , , 

Picture 

character 

P 

| CYP 

1 

J None 

4 . . , ... j. . . 

Picture 

character 

Z 

| CYZ 

T 

| None 

4- 

Picture 

character 

* 

| CYAST 

T 

| None 

4_ __ 

Picture 

character 

Y 

jCYY 

j. 

I 

j None 

4 . 

Picture 

character 

G 

j CYG 

T 

| None 

4_ . _ 

Picture 

characters 

6 , 7, 8 , H 

| CYSSEH 

4 

1 

j None 

4_ .. _ . r ..... 

Picture 

character 

M 

1 

j CYSTM 

.j- 

1 

| None 

4 

Picture 

character 

F 

| CYF 

-j- 

T 

| None 

Converts 

integer constants to 

scale | CYC97 

| CYCONV 


factor 


| Calculates scale factor 

L 


CYFNT 


None 
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r T - 

| Routine/Subroutine 1 


r- - 

j CYAST 

T 

| CYBR2 


| CYBR3 


j CYCONV 


| CYCPBS 


| CYCRDB 


| CYC21 


| CYC97 


| CYE 


| CYEK 


1 CYENDD 


| CYF 


| CYFIND 


| CYFNT 


| CYG 


| CYK 


| CYNINE 


| CYOTT 


| CYP 


| CYSDPM 


| CYSS 


| CYSSEH 


| CYSTM 


| CYTABL 


| CYV 


J CYY 


1 CYZ 

L _ 

X 


Table FQ1. Phase FQ Rautine/Subroutine Directory 

Function 

Processes picture character *. 

Identifies picture character. 

Controlling scan of PICTURE chain. 

Converts integer constant to scale factor. 

Processes picture characters slash (/)„ comma( f ), point (.), and B. 
Processes picture characters CR r DB. 

Adjusts data to terminate picture before illegal character. 

Converts integer constant to scale factor. 

Processes picture character E. 

Completes entry for correct picture. 

Releases control at end of picture chain. 

Processes picture character F. 

Obtains code for next character in picture. 

Calculates scale factor. 

Processes picture character G. 

Processes picture character K. 

Processes picture character 9. 

Processes picture characters 1,2,3. 

Processes picture character P. 

Processes picture characters S„ $, + , -. 

Processes picture characters 6,7. 

Processes picture characters 8,H. 

Processes picture character M. 

Code table for picture characters. 

Processes picture character V. 

Processes picture character Y. 

Processes picture character Z. 

j 
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Table FT. Phase FT Dictionary Scan 

r t* 


Statement or Operation Type 


Main Processing! 
Routine | 
+- 


Subroutines Used 


H 


Scans 

second 

file 

j AC1 

[None 

i _ .. 


Scans 

dictionary 

1 

i bi 

J 

T 

| None 

j. 


Data variables 

1 

| DATVAR 

1 

1 

| None 


Event 

or label variables 

T 

1 EVLABV 

t . 

i 

| None 

j. . 


Dimension attributes 

| FO 

T 

| None 

- - 1 - 


Scans 

AUTOMATIC chain 

j 

j G2 

-j- 

1 

| None 
j. 


Scans 

STATIC 

chain 

! G3 

4- - 

1 

| None 

4- . . -. 


Scans 

CONTROLLED chain 

T 

| GEl 

-j- 

I 

| None 

4- 


Sets dope vector required bit 

| PI A 

T 

| None 


ENTRY 

type 

1 

entries 

J QA4 

| None 

j. _ 


ENTRY 

type 

2 

entries 

| QA3 

.j- 

|PROPIC 

4 . _ _ 


ENTRY 

type 

3 

entries 

i QA2 

| . . . 

T 

(None 


ENTRY 

type 

4 

entries 

|qx 

j None 

-j- 


ENTRY 

type 

5 

and 6 entries 

1 QAl 

-L 

j PROPIC 

4_ 


Constants 



T 

| CONST 

. ... .1 .... . 

1 

j None 

4 


Structures 



+ 

j STRUCT 

1 

j AJDMRT, MKDMTB, MVTXT 
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Table FT1. Phase FT Routine/Subroutine Directory 


r T * 

| Routine/Subroutine J 

h 


Fu net ion 


AC1 
AC 2 
AF3 

AJDMRT 

B1 

BIA 

CONST 

DATVAR 

EVLABV 

FO 

FULIN 

GE1 

G2 

G3 

MKDMTB 

MVTXT 

PROPIC 

P1A 

QA1 

QA2 

QA3 

QA4 

QX 

STRUCT 

TRVECT 


Scans second file. 

Detects second file statement marker. 

Points relevant dictionary entry at statement. 

Modifies second file statements to initialize dope vectors for base 
elements, rather than for the containing structures. 

Scans dictionary. 

Initializes dictionary scan. 

Processes constants. 

Processes data variables. 

Processes event or label variables. 

Processes dimension attributes. 

Moves initial label statement to the second file, collecting togeth- 
er all statements for the same array. 

Scans CONTROLLED chain. 

Scans AUTOMATIC chain. 

Scans STATIC chain. 

Creates dimension tables. 

Moves text blocks. 

Extracts precision data from picture tables. 

Sets 'dope vector required* bit. 

Processes ENTRY type 5 and 6 entries. 

Processes ENTRY type 3 entries. 

Processes ENTRY type 2 entries. 

Processes ENTRY type 1 entries. 

Processes ENTRY type 4 entries. 

Processes structures. 

Transfer vector for appropriate chaining routine. 
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Table FV- Phase FV Dictionary Second File Merge 

r t t 

Main Processing 

Statement or Operation Type I Routine 


Subroutines Used 


Reverses second file pointers; 
scans text for block heading state- 
ments; allocates statements and 
references to dynamically defined 
data 


IEMFV 


DATCPY, DEFMOV, DEFTST, F 2 MOVE* 
MOVE 


Examines ADF references in second 
file; completes defined item dic- 
tionary entry 


DEFCOM 


None 


Detects dictionary references which 
refer to dynamically defined data 


deftst 


None 


Examines dictionary references and 
moves any associated second file 
statements to the output string 


DATCPY 


F 2 MOVE, MOVE 


Table FV1. Phase FV Routine/Subroutine Directory 


r T - 

| Routine/Subroutine I 


Function 


DATCPY 

DEFCOM (FW) 

DEFMOV 

DEFTST 

FVO 

FV9 

FV10 

FV16 

FV18 

FV19 

FV20 

FV34 

F2M0VE 

IEMFV 

MOVE 


Moves second file statements associated with dictionary reference to 
output string. 

Examines ADF references in second file; completes defined item dic- 
tionary entry. 

Modifies text references to dynamically defined data. 

Detects dictionary references which refer to dynamically defined 
data. 

Scans second file reversing pointers. 

Initializes text scan. 

Scans text. 

Releases control. 

Processes ALLOCATE statements. 

Processes PROCEDURE statements. 

Processes BEGIN statements. 

Scans AUTOMATIC chain. 

Moves second file statement to output string. 

Controlling scan of second file; invokes processing routines. 

Moves text from input string to output string. 
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Table FX. Phase FX Dictionary Attributes and Cross Reference 
r 


T T 

Main Processing 
Routine 


Statement or Operation Type 


Subroutines Used 


Scans STATIC chain for all items 


FX0000 


FX0010 


J— 


Scans PROCEDURE-BEGIN chain 


FX0100 

FX0170 


FX0010, FX0101, FX0105, FX0120 


Scans CONTROLLED chain for non- 
parameter DECLARED, CONTROLLED 
dictionary entries 


None 


Scans parameter list from PROCEDURE 
and ENTRY statements 


FX0101 


FX0010 


Sorts BCD of variables and creates 
entries in scratch text storage 


FX0010 


None 


Scans circular chain of ENTRY 
statement dictionary entries asso- 
ciated with a particular PROCEDURE 
statement 


FX0105 


FX0101 


Scans AUTOMATIC chain associated 
with particular PROCEDURE or BEGIN 
block 


FX0120 


FX0010 


^FXHD 


Prints heading line for tables 
according to options specified 


ATTMOV 


Scans sorted chain of identifiers 


FXPRNT 

FX0299 


FX0299 


Determines attributes of a given 
identifier if the ATR option is 
specified 


ATTMOV, FXBCD, FXDCLN, FXEND, 
REFMOV 


Scans the chain of references for a 
given identifier (if XREF is 
specified) and prints them in 
external decimal form 


REFMOV 


FXDCLN 


Converts EBCDIC of particular 
attribute to required external form 
and moves it to print area 


ATTMOV 


None 


Prints BCD of identifier having 
converted it from internal form to 
external form 


FXBCD 


None 


Converts an internal binary number 
to external decimal form and moves 
it to print buffer 


FXDCLN 


None 


Frees all scratch text storage and 
releases control to next phase 


FXEND 


None 
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Table FX1 . Phase FX Routine/Subroutine Directory 


r T . 

| Routine/Subroutine J 


Function 


ATTMOV (FY) 
FXBCD (FY) 

FXDCLN (FY) 

FXEND (FY) 

FXHD (FY) 

FXPRNT (FY) 

FXOOOO 

FX0010 

FX0030 

FX0100 

FX0101 

FX0105 

FX0120 

FX0170 

FX0250 

FX0299 

REFMOV (FY) 


Converts EBCDIC data to required form, moves data to print area. 

Moves identifier BCD to print area, determines options to be print- 
ed. 

Converts binary number to external BCD, moves it to print area. 

Frees scratch storage, releases modules, releases control. 

Prints heading line for table according to options specified. 

Scans sorted chain of identifiers. 

Scans STATIC chain. 

Sorts BCD of variables and creates entry in text for each item. 

Tests for end of STATIC chain. 

Scans PROCEDURE-BEGIN chain. 

Scans parameter list from PROCEDURE and ENTRY statements. 

Scans circular chain of ENTRY statement dictionary entries associat- 
ed with a particular PROCEDURE statement. 

Scans AUTOMATIC chain associated with particular PROCEDURE or BEGIN 
block. 

Scans CONTROLLED chain for nonparameter DECLARED CONTROLLED dic- 
tionary entries. 

Scans text, making chain of references to each dictioary entry. 

Determines attributes of a given identifier if the ATR option is 
specified. 

Moves the references to an identifier to the print buffer and 
prints. 
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Chart 04 


Pretranslator Logical Phase Flowchart 


***** 
*04 * 
* Al* 


Al *. 

.♦STREAM *. 

.* I/O STMNT *. YES 
*.0R 2ND LEVEL .*.... 
*. MARKERS .* 

*. .* 

*. .* 

* NQ 

*X 

X 

.*. 

B1 *. 

.* ANY *. 

.* FUNCTION *. YES 
*. REFERENCES .*.... 
*. .* 

*. . * 

*. .* 

* NO 


.* *. YES 

*. ANY CHECK 

*. LISTS .* 


.*. 

El *. 

.♦STRUCT *. 
.♦ASSIGNMENTS*. YES 
*. OR EXPRESS- .*.... 
*. IONS .* 

* . . * 


.X. 


.*. 

FI *. 

.* ARRAY *. 
.♦ASSIGNMENTS*. YES 
*. OR EXPRESS- .*.... 
*. IONS .♦ 


*. 


*. .* 


G1 


*. 


ANY *. 

.* I SUB *. YES 
DEFINED .*.... 
*. ITEMS .* 

* * • * 

*. .* 

* NO 


X 

***** 
*05 * 
* Al* 


*****A2********** 
*1/0 MOO. GA* 

*-*-*-*-*-*-*-*-* 
X* MODIFY * 

*1/0 PARAMETERS * 

* * 

***************** 


***** 02 ********** 
♦MATCH 1 GK* 

*-*-*—*—*-*-*-*—* 
X* CHECK * 

* PARAMETER * 

* MATCHING * 

***************** 


***»*C 2* ********* 
♦MATCH 2 GP* 
*-*—*—*—*—*—*—*-* 
* SECOND CHECK * 


**»**Q2 ********** 
♦CHECK LIST GU* 
*-*_*_*_*_*_*_*_* 
X* PROCESS * 
♦CHECK CONDITION* 
* STATEMENTS * 
***************** 


*****£2 ********** 
♦STRUC ASSIGN HF* 
*-*-*_*_*_*_*-*_* 
X* PROCESS * 

* STRUCTURE * 

* ASSIGNMENTS * 
***************** 


X* 


***#*F 2 ********** 
♦ARRAY ASSIGN HK* 
#-*—*_*_*— *_*_*_* 
PROCESS * 

* ARRAY * 

* ASSIGNMENTS * 

***************** 


*****G2* ********* 
♦ I SUB DEFINE HP* 
*_*_*_ *- *- *_ *- *_ « 


X*PROCESS ITEMS* 

* DEFINED USING * 

* I SUBS * 

4c * 4c 4c * * 4c 4c 4c 4c * * * * * * 4c 


X 

***** 
*05 * 
* Al* 
* * 
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Chart GA. Phase GA Overall Logic Diagram 


***** 
*GA * 
* Al* 


*****A2 ********** 

* * 

* INITIALIZE * 

* TEXT *« 

* POINTERS * 

* * 
***************** 


*****43********** 


***************** 


63 *. 

.* *. 

> FORMAT * 
STATEMENT 


*. 


. * 

*. .♦ 

* NO 


AFORMT 

*****BA********** 

* FORLST * 

*-*-*-*-*-*-*-*-* 

...X* SCANS * 

* FORMAT LIST * 

* (SEE DA I * 
***************** 


*****02********** 

♦ SCAN STATEMENT , * 

* SKIPPING DATA * 
♦SPECIFICATIONS, *X. 

* TRANSMITTING ♦ 

♦ OTHER OPTIONS * 
***************** 


02 


*. 


*. 


.♦ WERE ♦. NO 
♦. ANY OPTIONS 
♦. SKIPPED .♦ 

*• . ♦ 

♦. . * 

* YES 


C3 *. 

.* GET *. 
OR PUT I 
STATEMENT 

, , 

♦ . .♦ 


D3 ♦. 

. * ♦. 

.♦ END OF • *. NO 
.X*. TEXT 

* . ,* 

. * . 


LA8178 

*»***F1 ********** 

♦ FORLST ♦ 

♦-A-*-*-*-*-*-*-* 

♦ SCANS *X. 

* FORMAT LIST ♦ 

* (SEE DA) ♦ 
***************** 


SCAN2 .♦. 

G1 *. 

.* DOES ♦. 

NO .♦ IT *. 

...♦.CONTAIN I TDO .AX. 

*. .* 

♦ . .* 

♦. .* 

♦ YES 


*****£ 2 ********** 

* RETURN ♦ 

* TO SCAN * 

* FOR ♦ 

* SKIPPED ♦ 

* OPTIONS * 

***************** 


X 

. ♦. 

*F2 ♦ . 

YES .♦’ FORMAT 
...... OPTION 

♦. 

*. . * 

♦ . .* 

♦ NO 


YES .♦ DATA, ♦. 
......EDIT, OR LIST.* 

*. OPTION .* 


LLDDIT 

**«**H1 ********** 

* OUTPUT PRIOR * 

* TEXT AND ENO. * 
♦SCAN TO THE ). * 

* REPLACE IT BY * 

* SEMI-COLON * 
***************** 


***** J1 ********** 

* MAKE ROOM * 

* IN OUTPUT * 

* TEXT AND *.. 

* INSERT DO * 

* STATEMENT * 

***************** 


.* END OF *. NO 
*. STATEMENT .*... 
*. .* 


.* 

► YES 
, **** 

. *GK « 
..X* A3 
* * 
**** 


**** 

K , 

♦ A3 * 
► * 

**** 


*******«♦♦*♦♦*♦** 


♦****£ 3 *♦♦*♦♦**♦* 

* OUTPUT BUY ♦ 

* TEMP AND ♦ 

* I TOO *X. 

* STATEMENTS * 

* + 
***************** 


.*. 

F 3 ♦. 

.♦ DOES ♦. 

.♦ LEFT ♦. NO 
F. PARENTHESIS .♦... 
♦. FOLLOW .♦ 

♦ . . ♦ 

♦. .♦ 

♦ YES 


F7 


EA 


.♦. 


. * ♦. 

YES .♦ *. M 

...... ITERATION .*. 

♦. FACTOR .♦ 

*. . * 

♦ . .* 


•****F4«* ******** 
* * 

* OUTPUT ♦ 

<♦ FOLLOWING ♦ 

* FORMAT ITEM ♦ 

* * 
***************** 


***** 03 ********** 

* STACK * 

* DICTIONARY * 

* REFERENCE * 

* OF TEMP * 

* * 
***************** 


♦****G A* ********* 

* OUTPUT ENO * 

» AND * 

* SELL (TEMP) *. 

* STATEMENTS * 


. *. 

H5 *. 

. * *. 

.* RIGHT *. NO 
*. PARENTHESES .♦... 
*. .* 

*. .* 


*. 


•****J A********** 

* UNSTACK * 

* DICTIONARY 

* REFERENCE 

* OF TEMP * 

* * 
***************** 


♦ X. 


* YES 


-6A .*. 

J5 *. 

.* *. 

NO .* END *. 

...*. OF FORMAT .* 
*. LIST .* 

*. .* 

*. .* 

* YES 


* OUTPUT * 

* AND * 

* RETURN * 

* * 
***************** 
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Chart GK. Phase GK Overall Logic Diagram 


* NOTING 
.X* BLOCK LEVEL 

* AND COUNT 


* SET ' BUI LT- 


♦ TEBYTE FOR * 
♦GENERIC AND/OR *X. 

♦ BUILT-IN ♦ 

♦ FUNCTIONS * 


• X*PUSH DOWN STACKS 


*****54********** 


♦SET POINTERS TO* 
♦PARAMETER LIST * 

* AND SETS LIST * 
♦FOR NON-BUI LT- ♦ 

* IN FUNCTIONS * 
***************** 


*****G1 ********** 


*****G4********** 


♦****F 5* ****** **i 


*****Q5********** 

♦ CHECK ARGNO ♦ 

♦ AGAINST OICT ♦ 

♦ ENTRY OF ♦ 


♦ OUTPUT PRIOR * 

♦ TEXT» TEBYTE, ♦ 

♦ STMT NUMBER, ♦ 
♦LEVEL ANO COUNT* 


BALOOP X 

*****j 2 ********** 

♦OUTPUT ARGUMENT* 
* MARKER, DICT * 


♦OUTPUT WARNING * 

♦ MESSAGE SKIP * 

* TO END OF *X 


BARESC .*. 

K2 *. 

•♦IS ARG ♦. 

YES • *A FUNCTION *. NO 
••••♦. WITH NO .♦••• 
♦.ARGUMENTS.* 


(SCAN FROM 
START OF 
ARGUMENT) 


***************** 
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Chart GP. Phase GP Overall Logic Diagram 


**** 

* * 

* A3 * 

* * 
**** 


**** 

* H3 * 


IttS2 A 

♦ ****{} 1 ********** 
* * 

SCAN TEXT 
~~ ARGUM 
LIST 

* * 

***************** 


***{ 32 *** ******* 


FOR ARGUMENT *X . 


**************** 


SCALAR . 

*. .* 

" ** YE S 


SCALAR . 
* YES 


OF TEXT 

'*. 

* NO 


ITEM 

BUILT-IN 

•FUNCTION 


TESTC 

El *. 

. * * 
YES .* IS 
X..*. ARGUMENT 


NO .* BUILT-IN 


*A CONSTANT.* 


^EXPRESSION.* 


. * . 

F2 *. 

. * *. 

* PARAMETER * 
DESCRIPTION 


.X*. DESCRIPTION .* X* 

*• .* 

*. •* 

*. • * 

* NO 

**** 

* E 3 *.x! 

* * 

**** , 

X 

*****£ 3 ********** 

* * 

* CREATE SCALAR * 

* CHAMELEON *... 

* DUMMY * 

* * 
***************** 


DUMMY OF 
“RAMETER * 
TYPE * 

***************** 


**** 

* 61 * 
* * 
**** 


SCALAR • 

.* 

.* 

YES 


*****q 5* ********* 


•X* SUBSCRIPTED 


***************** 


**** 

X 

**«**H1 ********** 

* * 

* ERROR * 

.* MESSAGE *X 

* * 

* * 

***************** 


NO .* ARGUMENT 


.* ARG ANO *• 
. PAR SAME • 
♦ .DAT A TYPE.* 


****** 2 ********** 
* * 

* WARNING * 

* MESSAGE * 

* * 

***************** 

X 

**** 

* * 

* DA * 

* * 

**** 


X 

i****H 3* ******** 


**************** 
**** 


C0PYPT.M13 X 

*****j 3 ********* 

* CREATE AN 

* AGGREGATE 


****************1 


.* AGGREGATE *. NO 
*. STRUCTURES ......X 


CHCKSltBZ 
H5 

.* DOES *. 

NO .* REDUCED *• 
ARGUMENT 
.STRUCTURE.* 
*. MATCH.* 

V YE S 


MATCH . 
. •* 
*• •* 

* YES 


DATA 

TYPES 

MATCH 


**** 

£ 11 ? £22 


**«**K5 ********** 

* CONSTRUCT * 

* A REDUCED * 

* DOPE VECTOR * 

* FOR ARG * 

* * 
***************** 
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Chart GU. Phase GU Overall Logic Diagram 


****»A1 ********** 

* GET SCRATCH * 

* STORAGE FOR * 

* CHECK TABLE- *. 

* INITIALIZE * 

* TEXT POINTERS * 
***************** 


***************** 


• - * 
*. - * 

* NO 


ASTMT , AENDST 

***** 03 ********** 

* HOUSEKEEPING * 
*FOR ENDS, ETC. * 

».X* RESET *. 

*IF— SWITCH ONCE * 

# * 
***************** 


AFM X 

*****□!**** ****** 

* CALLA * 

*-*_*_*-*-*_*_*_* 
...♦SIGNAL CHECKEO *X. 
. * ARGUMENTS * 

. * RESET FMPTR * 

X ***************** 
**** 


ABGNDO 

*****£ 1 ********** 

* * 

♦ SET * 

♦ I F-SW ITCH *> 

* TWICE * 

* * 
***************** 


YES .* FUNCTION *. 
....*. MARKER .< 
*. . * 

* . . * 

*. . * 

* NO 


.* 

YES .* ELSE 

....*. OR 

*. THEN 


ASPECL, AENDNO 

*****C4********** 

* UPDATE CHECK * 

♦ TABLE FOR * 
►.X* PROC OR BEGIN *. 

♦ STATEMENTS * 

* * 
***************** 


**** 

8 SC AN X 

*****94********** 


***************** 


ASC 

**»**CS* ********* 

* SET PCSW FOR * 
♦POSSIBLE CHECK * 

,..X* STATEMENT. * 
♦PROCESS SIGNAL * 

* OR CALL STMTS * 
***************** 


ASC L X 

***** 05 ********** 

* CALLS * 

*-*-*-*-*-*-*-*-* 

....•SIGNAL CHECKED * 

* STATEMENT * 

* LABEL * 

***************** 


«****£ 3********** 

* * 

* OUTPUT * 

* PRECEDING *» 

» STATEMENT * 

* * 
***************** 


YES .* *. 

....*. STATEMENT .* 

*. . * 


BPC 

**»**F2 ********** 

* GO TO * 

* PSEUDO-CODE * 
....* ROUTINE TO *> 

* CHECK THIS * 
♦STATEMENT TYPE * 
***************** 


BTEST4 .*. 

F4 *. *****F5********** 

.* *. * CALL B * 

NO .* FUNCTION *. YFS *-*-*_*_*_*_*_*_* 

...*. MARKER .*.. X *S I GNAL CHECKED * 

. *. .* * FUNCTION * 

. *. .* * NAME * 

X *. .* ***************** 


****H1 ********* 

A ENTRY TO * 

* C ALL A/CALLB * 

* * 
*************** 


.* IS *. YES 

IFSW .*.... 

*. SET .* 

*. .* 

*. .* 

* NO 


*****J2********** 

* RESET IFSW. * 

* OUTPUT 00 * 

X* STATEMENT. *. 

* GET ENO-FLAG * 

* OR ENDSW * 
***************** 


G3 *. 

.* *. 

.* IS *. YES 

. FMPTR .*.... 
*. SET .* 

*. .* 

* • • * 

* NO 


BVARNO X 

*****H 3 ********** 

* DOWNDATE * 

* CHECK TABLE * 

* FOR END * 

* STATEMENT * 

* * 
***************** 


.* WAS IT *. NO 

.X*. CALLS 


**** .* *. 

* * NO .* PCSW *. 

* D4 *X. . . .*. AND FMPTR .* 

* * X *. BOTH .* 

**** . *. RESET.* 


**»**H 5 ********** 

* SET FMPTR IF * 

* ANY ARGUMENTS * 

* IN LIST ARE * 

* CHECKED. SCAN * 

* FROM MARKER * 
***************** 


CAL STM 

*****j A ********** 

* RE-COPY * 

* STATEMENT * 

...X* FROM * 

* SOURCE TEXT * 


***************** 


CALSYM X 

**»**K 3 ********** 

* OUTPUT * 

* REQUIRED * 

...X* SIGNAL *. 

* STATEMENT * 


***************** 


****K4 ********* 


*************** 
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Chart HF. Phase HF Overall Logic Diagram 


***** 

♦ HF * 

* Al* 


*****A1 ********** 


*****A2*** ******* 


.* *. **** 

.♦ STRUCTURE ♦ . YES ♦ * 

*. ASSIGNMENT E2 * 

♦.STATEMENT.* * * 


***************** 


***************** 


.* ITEM IN *. YES * * 

* . PUT STATEMENT.*. ...X* G2 * 
♦DATA SPECN.* * * 

*, .* **** 


C4 


*. 


YES .* STRUCTURE *. NO 
....*. IN GET STMT .*... 
♦DATA SPECN.* 


* . 


END *. YES 

►X*. OF TEXT .*.... 
* • • * 

*. • * 

*. . * 


*****0 x ♦♦♦**♦♦♦♦♦ 

* * 

* EXPAND * 

* STRUCTURE *X 

* ITEM * 

* * 
***************** 


D2 


. * • 


*. 


.* ♦ . 

* IS IT < 
GET DATA 
*. LIST .X 
*. . * 

*. . * 


* NO 


* E2 *.X 


**** 

SADRAB X 

*«***£ 2* ********* 
♦BUILD UP STACK * 

* FOR STRUCTURE * 

* UNTIL FINO BASE*X. 

* ELEMENT. BUY ♦ 
♦TEMPS IF NEEOEO* 
***************** 


X 

20 .♦. 

F2 *. 

.* IS ♦. 

.♦ SOURCE *. NO 
♦. POINTER AT .♦... 
♦. START .* 

*. .♦ 

♦. . * 

* YES 


SA32 

*****P3********** 

♦ OUTPUT BASE ♦ 

♦ ELEMENT AND ♦ 
...X. REPLACE IT IN ♦ 

♦SOURCE TEXT BY ♦ 

♦ NEXT ITEM ♦ 
***************** 


♦SCAN STRUCTURE * 

♦ EXPRESSION *X, 

♦ OR STATEMENT ♦ 

♦ ♦ 
***************** 


.* *. YES 

♦. STRUCTURE ...... 

♦. , * 


. * *. 

.♦ HAS ♦. NO 
.X*. STACK BEEN .♦... 
♦. BUILT .* 


♦ RESET ♦ 

.♦SOURCE POINTER *X. 

♦ TO START ♦ 

♦ * 
***************** 


***** 
*HK * 
* Al* 


SAFND/SA73 X 

***♦* 05 * ********* 

* OUTPUT END * 

* STATEMENTS * 

* AND SFLL * 

* TEMPS IE * 

* NECESSARY * 

***************** 


.* ARE *. 

YES .* THERE *. 
......MORE ELEMENTS.* 


*. . * 
*. . * 

* NO 


» A2 ♦ 
* * 
**** 


BYN11 

***«*H 5* ********* 

* BACKSPACE * 
♦OUTPUT POINTER * 

* TO START OF * 

* THIS SCALAR * 

* ASSIGNMENT * 
***************** 


J2 


*. 


NO .* END *. 
...*. OF EXPRN 

*. OR STMT .* 

*. .* 

*. . * 

* YES 


. * 


.*. 

J 3 *. 

.* *. 

BY NAME *. 
ASSIGNMENT . 
♦.STATEMENT.* 
*. . * 

*. .* 

* NO 


* SEARCH FOR * 
.X* BCD-MATCHING *. 

* BASE ELEMENT * 

* * 
***************** 


SAXI ETC X 

♦****K3 ********** 

* CHECK ITEM ♦ . ♦♦♦♦ 

♦AGAINST PATTERN* X * * 

* OF STACK. *.. . . X* G2 * 

* OUTPUT IT AND * * * 

♦REPLACE BY NEXT* **** 

***************** 


. * 

. .* 

* YES 


***-**K5* ********* 

* OUTPUT * 

* BCD-MATCHING * 

,* BASE * 

* ELEMENT * 

* * 
***************** 
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Chart HK. Phase HK Overall Logic Diagram 


**** ******* ****** 


X 

REOP 

B1 *. 

.* IS *. 

.* THIS *. 
.X*. END OF .*. 
*. TEXT .* 

*. .* 

*. .* 

* NO 


X 

. *. 

Cl *. 

• * *. 

.* IS IT *. 
». NESTED 
*. STATEMENT.* 
*. .* 


D1 *. 

.* IS *. 

.♦IT I/O LIST*. YES 
► . OTHER THAN ...... 

♦. GET .♦ 

♦.DATA .♦ 


NO .* IS IT *. 
...♦. ASSIGNMENT .* 
*. STATEMENT.* 

*. .♦ 

*. . * 

* YES 


* SEARCH NESTEO * 
.X«ST,ATEMENTS FOR *. 

* ASSIGNMENTS * 

* * 
***************** 


5TSCN .♦. 

D2 ♦. 

.♦ *. 

.* IS IT *. NO 
.X*. INPUT .*... 

♦. STATEMENT. ♦ 

♦. .* 


* SEARCH FOR ♦ 
•X* FIRST ARRAY ♦ 

* IN EXPRESSION ♦ 

* * 
***************** 


ARRASS .*. 

El ♦. 

.♦ IS ♦. 

.♦ THIS A ♦. 
♦. PSEUDO- 
♦. VARIABLE .♦ 


*****F 2 ♦*♦*♦****♦ 

♦ CHECK NUMBER ♦ 

* OF ARGUMENTS * 
•X* AND WHETHER *. 

♦ VALID * 

* * 
***************** 


AAOOP 

*****F3********** 

* EXAMINE ♦ 

* LEFT MOST ♦ 

...X* OPERAND ♦. 

* (ARRAY OR * 

* SCALAR) * 

***************** 


*****F4********** 

* MAKE ONE ♦ 

* ENTRY IN * 

<* STACK FOR *. 

* EACH DIMENSION * 

* * 
***************** 


* ****F5* ********* 

* GENERATE AND * 
♦CHAIN TEMPORARY* 

.X* AND GENERATE * 
♦BUY STATEMENTS * 

* * 
***************** 


LA . *. 

G1 *. 

.* IS *. 

.* THIS A *. V 
. MULTIPLE .*. 
♦ASSIGNMENT.* 
♦.ARROW.* 


*****G2 ********** 

* CHECK OTHER * 
•PSEUDO-VARIABLE* 

<« TO LEFT * 

* OF EQUALS * 


ARREXP X 

**«**H1 ********** 

* GENERATE * 

* 00 STATEMENTS * 

* USING *. 

* INFORMATION * 

* IN STACK * 
***************** 


AETRT 

*«***H2 ********** 

* SCAN * 

* STATEMENT * 

...X* FOR *. 

* ARRAYS WHICH * 
♦NEED EXPANSION * 
***************** 


*****H 3** ******** 

* CHECK BOUNOS * 

* AND * 

X* DIMENSIONS *. 

* AGAINST STACK * 

* * 
***************** 


***************** 


FRFTMP 

*****135* ********* 

* GFNE RATE * 

* SELL * 

...X* STATEMENTS *. 

♦FOR TEMPORARIES* 


***************** 
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Chart HP. Phase HP Overall Logic Diagram 


*HP * 
* Al* 


* # 

* A2 * 

* * 
**** 


* INITIALIZE * 

* TEXT *♦ 

* POINTERS * 

* * 
***************** 


MASCAN X 

*****42*#* ! < { **** : ** 

* SCAN SOURCE * 

* TEXT UNTIL * 
..•X* FIND DEFINED *. 

* SUBSCRIPT * 

* MARKER * 

***************** 


DETEMQ .*. 

B2 *. 

.* IS *. 

NO .* 2ND LIST *. 
...♦.ITEM A SIMPLE. *X. 

Diet P.EF 


. * • 

A3 *. 

. * * . 

.* END *. YES 
.X*. OF TEXT .*.... 
*. 


*. 


. * 


***** 
♦I A * 
♦ Al* 


*. 


. * 


DEFSUB 

*****B3********** 
*SK I P TO SECOND * 
♦SUBSCRIPT LIST.* 
....* BUY TEMPS FOR * 

* MULTIPLIERS. * 

* SET T2SW TO 0 * 
***************** 


.* EITHER *. YES 
. AN INTEGER .*.... 
*OR CONSTANT* 


D2 *. 

k * . **** 

IS *. YES * * 

T2SW 2 .*.... X* HI * 

. * * * 

.* **** 


. DEEND2 X 

*****g2*** ******* 

**** 

* * X * OUTPUT 

* E2 *....X* BUY TEMP, 

* TEMP EQUALS 


**** 


***************** 


DEL I SQ X 

*****F1 ********** 

* SE T T2SW TO 2. * 

* OOTPUT TEMP * 
*OF I SUB * AND * *X. 

* IF IT HAS A * 

* MULTIPLIER * 
***************** 


.000 .*. 

G1 *. 

.* IS *. 
.♦MULTIPLIER *. Yf 
*. A SIMPLE DICT.*.. 
*. REF .* 

*. .* 


* NO 


k ******* ********* 


* HI *.X 


*#** 

DELTMP X 

****»H1 ********** 

* OUTPUT NESTED * 
♦ASSIGNMENT STMT* 

* TO MULTIPLIER * 

* TEMP. SUMOVE. * 

* OUTPUT TEMP * 
***************** 


* OUTPUT * 

* DICT REF *X 

* OF MULTIPLIER * 

* * 
***************** 


. * 


*. 


2 

C4 '*. 

TEST T2SW 

* . • * 

*. . * 


***** 04 ********** 

* SET DICT REF * 

* INTO * 

*T A8L F OF TEMPS * 

* FOR I SUBS * 

* * 
***************** 


.X* 


BUMP POINTER * 
TO END OF * 
FIRST-LIST * 
* SUBSCRIPT * 

***************** 


DEGBDI .*. 

E4 *. 

.* ANY *. 

.* MORE *. YES 
♦.SUBSCRIPTS IN.*.... 
*. SECOND .* 

♦.LIST .* 

*• . * 

* NO 


*SET POINTER TO * 
♦START OF FIRST *. 
♦SUBSCRIPT LIST * 

* * 
***************** 


***************** 


X 

DENEXT .*. 

J1 *. 

.* *. ***< 

.* END OF *. NO * 

*. SUBSCRIPT .*•••• X* FI 

*. .* * 

*. .* **** 


DESCLN .*. 

K1 *. 

.♦END OF *. 

.* FIRST *. YES 
*. SUBSCRIPT .*.... 
*. LIST .* 

*. .* 

*. .* 

* NO 


*****« 2 *** ******* 

* OUTPUT BASE * 

* ARRAY WITH * 

.X*SUBSCRIPT LIST *... 

*QF TEMPS. SELL * 

* ALL TEMPS * 
***************** 


.*. 

G5 *. 

**** .*IS 1ST-*. 

* * YES .* LIST ITEM *. 

> C2 *X. . . .*. SUB 0 (SIMPLE.* 

► * *. DICREF) .* 

**** *. .* 

*. . * 

* NO 


DEOLP .*. 

H5 *. 

**** .* *. 

> * .* IS IT *. 

> E2 *X... .*. SUB N .* 

> * *. .* 

**** *. .* 

*. .* 

* YES 


*****j5********** 

* SET TEMP FOR * 

* I SUB INTO * 

* TABLE OF *. 

* TEMPS FOR * 

* SUBSCRIPTS * 
***************** 


144 



Table GA. Phase GA Pretranslator I/O Modification 


Statement or Operation Type 


Main Processing 
Routine 


Subroutines Used 


Removes all second level markers 


Throughout 

phase 


None 


Reorders options to put EDIT, DATA 
or LIST last 


A8 


SCNS, SC AN 2 


-+- 


Moves DO specifications to precede 
relevant list in data lists, adds 
END statements 


SCAN2 


LLDOIT 


Expands iteration factors in format 
lists 


FORLST 


None 


Table GAl. Phase GA Routine/Subroutine Directory 


r T - 

| Routine/Subroutine] 


Function 


j AFORMT 

(Processes FORMAT statements. 

i 



| A6 

(Scans source text for GET and PUT statements. 



| A8 

1 

(Recorders options to put EDIT, DATA, or LIST last, 
1 



| A21 

1 

| Scans GET or PUT statement for data specification. 



| FORLST 

1 

(Expands iteration factors in format lists. 

i 



| F2 

1 

| Creates and buys integer temporary. 

1 



|F5 

1 

| Scans and outputs format item. 

■ 



| F5A 

1 

| Sells temporary. 

I 



| F6 

1 

(Tests for end of format list. 



| F6A 

1 

| Tests for end of format specification. 

i 



| F6B 

I 

(Outputs end of format specification. 

i 



1 F7 

1 

(Scans format list. 

1 



| LAB17B 

1 

(Processes format list in GET or PUT statement. 

1 



| LLDOIT 

i 

| Moves DO specifications to precede relevant list in data 
j END statements . 

1 

lists, addsj 

| MKROOM 

i 

(Provides space in a statement in new source file- 



| MR 

1 

(Initializes text blocks and pointers, and obtains 

l 

scratch 

storage. | 

| SCAN2 

i i 

(Scans option list for end of option or statement, expands DO speci- | 

(fications, and changes certain function markers into pseudo-variable | 

(markers. | 

1 1 

| SCNS 

l 

| Scans option list for end of option or statement. 


i 

• 1 
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Table GK. Phase GK Pretranslator Parameter Matching 1 


Statement or Operation Type 

T 

|Main Processing 
| Routine 

i 

1 

| Subroutines Used 

Scans source text for function 
markers 

T 

| BAS CAN 

1 

J 

i CPSTMT, CRSTMT 

1 

4 

Processes function, puts out ref- 
erence and initial code bytes 

T — 

JBAFM 

1 

j_ 

T 

j SCANRP 

1 

4 . . 

Processes arguments 

T 

| BALOOP 

T — 

j ADDT3T, SCNCRP 

4 ...... ... ... 

Checks numbers of arguments 

-j- 

j ARGNOQ 

X 

1 

| None 

.X _ 


Table GK1. Phase GK Routine/Subroutine Directory 


r T * 

| Routine/Subroutine | 


Function 


| ADDTGT 

jAdds data to output text* 


| ARGNOQ 

1 

j Checks number of statements. 

i 


| BABT3 

1 

| Tests for STOP marker. 


| BACALQ 

1 

| Outputs function and first bytes of argument list. 

i 


| BADELM 

1 

| Tests for end of argument list. 

i 


| BAFM 

1 

(Processes function, puts out reference and initial code bytes. 

i 


| BAFST 

1 

j Locates SETS list and parameter list for function. 


| BALOOP 

1 

| Processes arguments . 


| BALPQ 

I 

(Tests whether argument list is present. 

I 


| BAMORE 

1 

| Accesses next argument in list. 


| BANORM 

1 

(Sets STOP marker to scan argument. 

■ 


| BAPVM 

1 

(Examines pseudo-variable. 

I 


| BARECQ 

1 

| Tests for nested function reference. 

1 


| BARGFN 

1 

| Outputs warning message. 

I 


| BAS CAN 

1 

(Scans source text for function markers. 

■ 


j BAS TOP 

1 

| Outputs argument. 

1 


| CPSTMT 

1 

| Adds closing bytes of a statement to output text. 

I 


| CRSTMT 

I 

| Adds first bytes of a statement to output text. 

i 


| SCANRP 

1 

| Scans argument list. 

1 


j SCNCRP 

1 

(Scans argument. 
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Table GP. Phase GP Pretranslator Parameter Matching 2 
r 


t r 

Main Processing 
Routine 


Statement or Operation Type 


Scans text for procedure and func- 
tion calls 

■+ 

| BS1 

1 

+ 

| ADDTT, STKINF, 

1 

UNSTCK 


Examines argument lists for expres- 
sions 

| 

1 BS4 

i 

j 

j EXSCAN, Ml, M4, 
1 

j. 

Ml 6, SCANFR 

Creates temporaries for scalar 
expressions and constants 

i Ml 6 

1 

1 

j ADDTT, COPYTP, 

1 

MKDCEN, 

SETBUY 

Creates temporaries for array 
expressions 

j E2 

1 

| -r- 

1 ADDTT, CHCKB1, 

| SETBUY 
j. 

COPYTP, 

MKDCEN, 

Creates temporaries for partially 
subscripted array expressions 

J E3 

1 

.-j- 

j ADDTT, CHCKB4, 
j SETBUY 

X 

COPYTP, 

MKDCEN, 

Creates special temporaries for 
partially subscripted arrays 

j EX16 

1 

1 

- 1 

T 

j ADDTT, BS2 , CHCKB4 , CHECKT, C0PYT1, 
j MKDCEN, STKINF, UNSTCK, Zll, 
j SETBUY, SETMT 

X 

Checks single arguments (except 
structures) with parameter descrip- 
tions 

T 

j M4 

1 

T 

| CHECKT, M16 

1 

1 



Checks single structure arguments 

j M5 

j CHECKS, CSTTMP 

X 



Creates temporaries for structure 
expressions 

| M21 

1 

-1 - - 

T 

| CSTMP2, MKDCEN, 
| ADDTT 

-X 

CHCKB4 , 

SETMT, 


Subroutines Used 


Creates temporaries for partially 
subscripted structure 


Z22 


BS2, ADDTT 




Compare the two arguments of the 
poly function and create 
temporaries if the arguments are 
not both floating and do not have 
the same scale and precision 


P0LY1, POLY 2 # 
P0LY3, P0LY4, 
P0LY5 


BS2 


Creates special dictionary entries 
for generic entry labels used as 
arguments 


M3 7 


None 
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Table GP1. Phase GP Routine/Subrobtine Directory 


r T - 

| Routine/Subroutine | 

h 


Function 


ADDTT 

BSl 

BS2 

BS4 

BSlO 

BS33 

CHCKB1 (GR) 

CHCKB2 (GR) 

CHCKB3 (GR) 
CHCKB4 (GR) 

CHCKS1 (GR) 
CHECKB (GR) 
CHECKS (GR) 

CHECKT (GR) 
COPYTP (GR) 
COPYTl (GR) 

CSTTMP/CSTMP2 
EXSCAN (GQ) 
EX16 (GQ) 

EX36 (GQ) 

E2 (GQ) 

E3 (GQ) 

MKDCEN (GQ) 

Ml (GQ) 

M2 (GQ) 

M4 (GQ) 

M5 (GQ) 

M6 (GQ) 

M10 (GQ) 


(GQ) 


Adds text to output block. 

Scans input text. 

Scans input text. 

Examines argument lists for expressions. 

End- of -prog ram routine. 

Tests for constant argument. 

Compares the bounds of argument and parameter arrays, and creates 
new dimension tables for temporary arrays. 

Compares the bounds of argument and parameter arrays where the argu- 
ment is partially subscripted, and creates new dimension tables for 
temporary arrays. 

Creates a new dimension table from a parameter description. 

Creates new dimension tables for partially subscripted array and 
structures. 

Compares the structuring of argument and parameter structures. 

Compares the bounds of argument and parameter arrays. 

Compares structuring and data types of argument and parameter struc- 
tures. 

Compares data types of arguments and parameters. 

Creates a temporary dictionary entry from a parameter description. 

Creates a temporary dictionary entry for a partially subscripted 
array from a parameter description. 

Create temporary structure dictionary entries. 

Scans expressions for arrays and structures. 

Creates temporary arrays for partially subscripted array arguments. 
Creates a chameleon dictionary entry. 

Creates temporaries for array expressions. 

Creates temporaries for partially subscripted array expressions. 
Makes dictionary entries. 

Examines argument expressions. 

Examines single arguments with parameter descriptions. 

Compares single arguments with parameter descriptions. 

Examines structure arguments. 

Tests for structure parameter. 

Processes subscripted variable argument. 
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~1 


Table GP1. Phase GP Routine/Subroutine Directory (cont'd) 

Function 


r t* 

| Routine/Subroutine | 


b 


Ml 2 (GQ) 

Ml 3 (GQ) 

Ml 4 <GQ) 

Ml 6 (GQ) 

M21 (GQ) 

M2 2 (GQ) 

M2 3 (GQ) 

M2 4 (GQ) 

M3 7 (GQ) 

M41 (GQ) 

M44 (GQ) 

POLY1 , POLY2 , 
P0LY3, POLY4 , 
POLY5 (all in GR) 

SCANFR 

SETBUY (GQ) 

SETMT (GR) 

STKINF 
TESTC 
UNSTCK 
Zll (GR) 

Z22 (GR) 


Creates a warning message. 

Gets BUY text. 

Processes scalar argument. 

Creates temporaries for scalar expressions and constants. 

Creates temporaries for structure expressions. 

Processes data item parameter. 

Processes label parameter. 

Creates a structure temporary. 

Creates dictionary entries for generic entry labels which are argu- 
ments. 

Error routine. 

Processes dimensioned scalar argument. 

Check the arguments to the POLY function and generate code to buy 
temporaries, if the arguments are not both floating and do not have 
the same scale and precision. 

Scans for matching parentheses. 

Inserts skeletons to buy temporaries in the output text. 

Sets temporary dictionary references in MTF compiler functions for 
array and structure bounds. 

Stacks information on encountering nested functions. 

Tests for constant argument. 

Unstacks information. 

Generates text to set up the dope vectors of partially subscripted 
array temporaries. 

Generates text to assign the structure subscripts of partially sub- 
scripted structures to temporaries, and then to set up the dope 
vector for the partially subscripted structure temporary. 


Table GU. Phase GU Pretranslator Check List 
r — 


t r* 

| Main Processing] 

| Routine | 

+ +- 


| Statement or Operation Type 

I- — 


Subroutines Used 


j Scans statement; checks if preced- 
| ing SIGNAL statement is needed 

j BSC AN 

1 

i 

(CALL, LIST, MOVE, SUOPQ 

1 

-L. 



r - - — — — ~ 

| Scans statements; checks if follow- 
j ing SIGNAL statement is needed 

T 

• ] ASCAN 

1 

,_L 

| None 

1 

± 



| Provides a SIGNAL CHECK Statement 

T 

j C ALL 

i — 

| GENTST 



| Searches list for checked items 

T 

j SUOPQ 

T 

|CALL, LIST 
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Table GUI. Phase GU Routine/Subroutine Directory 


r t~ 

| Routine/Subroutine | 


Function 


ABGNDO 

AFM 

ASC 

ASCAN 

ASCL 

ASPECL 

ASTMT 

ATEST4 

ATEST5 

ATST3 

BENTON 

BPC 

BSCAN 

BSTMT 

BTEST3 

BTEST4 

BVARNO 

CALL (GV) 

CALLBA (GV) 

CALLEX (GV) 

CALLIF (GV) 

CALSTM (GV) 

CALSYM (GV) 

GENTST 

LIST (GV) 

MOVE 

SUOPQ (GV) 


Sets Ip-switch for THEN or ELSE clause. 

Signals checked items in argument list. 

Tests statement identifier and takes action if necessary. 

Scans statements; checks if following SIGNAL statement is required. 
Examines statement dictionary entry. 

Examines statement dictionary entry which is not a label. 
Housekeeping for end of statement. 

Tests for argument list. 

Tests for THEN. 

Tests for end of statement. 

Test whether argument list contains checked item. 

Processes "possible check" statement. 

Scans statement; checks if preceding SIGNAL statement is required. 
Tests whether SIGNAL statement may be needed after statement output. 
Tests for end of statement. 

Tests for argument list. 

Tests for END statement. 

Outputs SIGNAL statement for checked item. 

Tests whether SIGNAL precedes or follows statement responsible. 

Exit from subroutine CALL. 

Tests whether DO statement must be output. 

Re-outputs overwritten statement after DO statement. 

Outputs SIGNAL statement. 

Checks space in output text block. 

Updates and searches list of currently checked items. 

Moves text from source to output. 

Searches list for checked items. 
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Table HF. 
r 


Phase HF Pretranslator Structure Assignment 


T T 

Main Processing 
Routine 


Statement or Operation Type 


Subroutines Used 


Scans text for structure assignment 
Statements, regions of nested 
statements, output list expres- 
sions, and structure references in 
input lists 


MR 


BYNAME, GENTST, LSTSCN, MOVE, 
NSTSCN, STRASS, STREXP, STRURE 


Expands structure assignments and 
expressions into a set of scalar 
assignments or expressions corres- 
ponding to the base elements of the 
structure operands. Where the base 
elements are arrays, the corres- 
ponding component expressions or 
assignments are surrounded by 
appropriately iterating DO groups 


BYNAME, STRASS, 
STREXP, STRURE 


DVCON, GENTST, LSTSCN, MOVE, 
NSTSCN, SBGN 


Scans regions of nested statements 
for structure assignments 


NSTSCN 


MOVE, NSTSCN, STRASS 




Adds text to the output string 


MOVE 

GENTST 


GENTST 


Determines space availability in an 
output text block 


MOVE 


Scans function argument and sub- 
script lists 


LSTSCN 


MOVE, NSTSCN 


Constructs DO statements and checks 
bound equivalence 


DVCON 


GENTST 


Constructs subscript lists for 
references to dimensioned structure 
base elements 


SBGN 


GENTST 
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Table HF1. Phase HF Routine/Subroutine Directory 


r T 

| Routine/Subroutine 1 

I- + 

BYNAME (HG) 

BYN1 (HG) 

BYN11 (HG) 

BYN13 (HG) 

DVCON (HG) 

GENTST 
LSGET 
LSTSCN 
LS21 
LS23 
MOVE 
MR 

MRBYN 
MRTRT 
NSTSCN 
SADRAB (HG) 

SAEND (HG) 

SAOP (HG) 

SATRT (HG) 

SAXl (HG) 

SA20 (HG) 

SA32 (HG) 

SA36 (HG) 

SA73 (HG) 

SA79 (HG) 

SBGN 

STRASS (HG) 

STREXP (HG) 

STRURE (HG) 


Function 

Expands BYNAME structure assignments. 

Searches for matching BCDs down to base elements. 

Returns to start of current output assignment statement. 

Test for matching BCDs. 

Constructs DO statements, checks bound equivalence. 

Determines space in output text block. 

Tests for GET statement. 

Scans subscript arguments and subscript lists. 

Tests for structure item in data specification. 

Tests for data-directed data specification. 

Adds text to output string. 

Scans text for structure assignment statements,, nested statements, 
output list expressions, and structure references in input lists. 

Tests for BY NAME assignment statement. 

Scans source text for structures. 

Scans regions of nested statements for structure assignments. 
Builds up stack to show pattern of structure. 

Tests whether END statements need to be output. 

Examines dictionary reference found. 

Scans structure expression or assignment. 

Tests whether item matches the stack pattern. 

Tests for start of structure expression. 

Outputs base element and replaces it in source text. 

Tests for BY NAME assignment statement. 

Outputs END statements. 

Resets scan pointer to start of expression/assignment. 

Constructs subscript lists for references to dimensioned structure 
base elements. 

Expands structure assignments into DO loops. 

Expands structure expressions. 

Expands structure references. 
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Table HK. Pretranslator Array Assignment 


Statement or Operation Type 


I 
I 

j. 

| Scans text for array and scalar 
| assignment statements 

Y 

| Scans text for nested array and 
j scalar assignment statements 

Y 

| Scans text for array expressions in 
j I/O lists in GET and PUT statements 

Y 

| Expands arrays into DO loops and 
| scalar assignments; checks dimen- 
j sions and bounds 

i 


Main Processing 
Routine 


Subroutines Used 


MR 

| None 



1 


MR 

T 

| NEST&T 

1 



1 


MR 

| ARRASS, 

LSTSCN 

ARRASS 

1 

1 

j FRETMP, 

MDE, OPTST, 


+- 


Table HK1. Phase HK Routine/Subroutine Directory 


r T * 

| Routine/Subroutine | 


Function 


j AADOP 

1 

(HL) 

| Examines leftmost operand. 

1 


1 

j AAMULA 

(HL) 

1 

| Tests for multiple assignment. 

i 


1 

j AA3 (HL) 

i 

1 

J Checks pseudo- variables. 

1 


1 

| AETRT 

(HL) 

j Scans array expression. 

1 


| ARRASS 

(HL) 

1 

| Expands arrays into DO loops and scalar assignments; checks dimen- 

| sions and bounds. 

1 


| ARREXP 

(HL) 

1 

| Generates DO loops and subscripts for array references. 

I 


| ARRIN 

(HL) 

1 

(Entry point for array expressions in input lists. 

I 


| ARROUT 

(HL) 

1 

| Entry point for array expressions in output lists, 

l 


| FRETMP 


1 

(Generates a SELL statement for temporaries bought in the current 
( statement. 


| LSTSCN 


1 

| Scans I/O lists for possible array expressions. 

I 


| MDE 


1 

| Makes a temporary dictionary entry. 

1 


| MR 


1 

(Scans text for array and scalar assignment statements, for nested 
| array and scalar assignment statements, and for array expressions 
(GET and PUT statements. 

in | 

| MREOP 


1 

(Tests for end of text. 


| MRTRT 


1 

(Scans text. 

t 


j NEST AT 


1 

(Scans nested statements. 


| OPTST 

(HL) 

1 

| Tests any given operand. 


| SLGCH 

(HL) 

I 

(Generates and checks subscript lists. 

1 


| SLMCG 

(HL) 

1 

| Inserts subscripts in expanded array position. 

I 


| SUBSKP 

L _ 

(HL) 

1 

(Skips a subscript or subscript list. 

j 
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Table HP- Phase HP Pretranslator iSub Defining 


Statement or Operation Type 

— T ~ T~ 

(Main Processing! 

| Routine | Subroutines 

_ X 

Used 

Scans source text for references 
defined by iSUB 

j MASCAN 

1 

j MOVE 

1 

X 


Processes references defined by 
iSUB 

1 DEFSUB 

1 

1 ^ 

T 

j GENTST, MOVE, SULIST, 

1 

X 

SUMOVE 

Scans subscripts 

1 

| SUMOVE 
| (in SULIST) 

_ X _ _ 

T 

| None 

1 



Table HP1. Phase HP Routine/Subroutine Directory 


r T 

| Routine/Subroutine j 

J* + 1 

DEDONE 
DEEND2 
DEFSUB 
DEGBDl 
DEGBD8 
DEGUB 
DEGUBD 
DELISQ 
DELTMP 
DEL000 
DENEXT 
DENGB 
DEN2GB 
DEOLP 
DESCLN 
DETEMQ 
DEUMQ 

GENTST (HQ) 

INIT 
MASCAN 
MOVE (HQ) 

SULIST 
SUMOVE 

L X j 


Function 

Resets pointers to scan first subscript list. 

Creates and buys temporary. 

Processes references defined by iSUB. 

Tests for end of second subscript list. 

Bumps pointer to end of first-list subscript. 

Tests T2-switch when temporary assignment needed. 

Tests T2- switch when no temporary assignment needed. 

Output temporary for non-zero iSUB. 

Outputs nested temporary assignment statement for multiplier. 

Tests whether first-list multiplier is simple dictionary reference. 
Tests for end of first-list subscript expression. 

Tests whether dictionary reference is constant or integer variable. 
Outputs multiplier dictionary reference. 

Tests whether first-list subscript consists of a single iSUB. 

Tests for end of first subscript list. 

Tests whether second-list subscript is simple dictionary reference. 
Tests whether first iSUB in first-list subscript has a multiplier. 
Checks space in output text block. 

Initializes text blocks and pointers, gets scratch storage. 

Scans source text for references defined by isUB. 

Moves text from source to output. 

Scans subscript lists. 

Scans subscripts. 
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Chart 05. Translator Logical Phase Flowchart 


***** 
*05 * 
* Al* 


*****A1 ********** 
♦STACKER IA* 

*_*-.*_*_*_*_*_*_* 

* STACK * 

* OPERATORS * 

* * 
***************** 


• * 


B1 


*. 


.♦B.I.F. WITH*. 
*. AGGREGATED . 
*• ARGUMENT .* 
*. .* 

*. .* 

* NO 


.*. 

Cl *. 

.* ANY *. 
.* FUNCTION 
*. REFERENCE 


*• 


. . * 
*. . * 

* NO 


***** 
*06 * 
* Al* 


• X* 


♦****B2 ********** 
♦PRE-GENERIC IG* 
*-*-*-*-*-*-*-*-* 
PROCESS * 
PRE-GENERIC * 
* FUNCTIONS * 
***************** 


, X* 


****»C2* ********* 
♦PRE-GENERIC IL* 
*-*-*-*-*-.*_*_*_* 
GENERIC * 
FUNCTIONS * 
* PREPROCESSOR * 
***************** 


***** 02 ********** 
♦GENERIC IM* 

*-*-*-*-*—*-*-*-* 

* PROCESS * 

* GENERIC * 

* FUNCTIONS * 

***************** 


X 

***** 
*06 * 
* Al* 
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Chart IA. Phase IA Overall Logic Diagram 

***** 

* I A * 

* Al* 

* * 

* 


***«*Al ********** 
* * 

* LOAD MODULE * 

* AND * 

* INITIALIZE * 

* * 
***************** 


* BX *.X 


**** 

ESCAN X 

*****B1********** 

* SCAN TEXT FOR * 

* OPERATOR, * 
..X* OPERAND, OR * 

* END OF * 

* PROGRAM * 
***************** 


. * 


Cl 


*. 


*. 


IS IT *. YES 
*. END OF .*.... 
*. PROGRAM .* 

*. .* 

*• .* 

* N.0 


. * 


D1 


*, 


* , 


IS IT *. NO 
*. AN 

‘.OPERATOR .* 

*. .* 

*. •* 

* YES 


***** 
*IG * 
* Al* 


ESTCAC 

****♦ 02 ********** 

* PLACE OPERAND * 

* IN STACK AND * 
...X* SCAN TO * 

* FOLLOWING * 

* OPERATOR * 
****T************ 


EACTNC X 

«****£ 1********** 
•COMPARE WEIGHTS* 

* OF STACK AND * 

• TEXT * 

* OPERATORS * 

• * 
***************** 


FI *. 

.* IS *. 
.* STACK * 
*. WEIGHT 
*. LESS .* 
*. .* 


* NO 


*****d ********** 

* SELECT * 

* APPROPRIATE * 

* ROUTINE TO * 

* HANOLE * 

* OPERATOR * 

***************** 


* MOVE TRIPLES * 

TO * 

* OUTPUT * 

* * 
***************** 


• *. 

F2 *. 

• * IS < 
.* SPECIAL 
.X*. ACTION 
*. NEEDED 
* . 

*. . * 

* NO 


*****G2*** ******* 

* FILL OUT * 

* TRIPLE * 

* IN STACK * 

* * 
***************** 


**** 
* B 1 
**** 


X 

*****£ 3********** 

* SELECT * 

* APPROPRIATE * 

* ROUTINE TO * 

* HANDLE * 

* OPERATOR * 

***************** 


EGENR X 

*****H3********** 
* * 

* MOVE TRIPLFS * 

* TO 

* OUTPUT * 

* * 
***************** 
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Chart IG. Phase IG Overall Logic Diagram 


*** 4c * A ^********** 


***************** 


B 1 *. 

. * *. 

.* BUILT-IN *. YES 
I-. BUY 


, . * 
*. . * 

* NO 


B2 *. 

.* FIRST ». 
.* BUILT-IN s 
.X*. BUY OP 

*. PAIR .1 


*<‘Yt*C2**# ******* 

* * 

* REPLACE * 

* BY BUY *. 

* TRIPLE * 

* * 
***************** 


***** 02 ********** 


.* FUNCTION *. YES 

*. TRIPLE .*.... 

*„ .* 


.X* BUMP STACK 


. * FUNCTION *. YES 
. TRIPLE .*.... 
*. PRIME .* 

*. .* 

*. .* 

* NO 


.* IGNORE *. YES 

*. TRIPLE .*.... 

*. . * 

*. . # 

*. .* 

* NO 


***************** 


*****£ 2 ********** 


***************** 


u 

F2 *. 

.* IS *. 

.* THERE *. 
. X*. A DUMMY 

♦•IN STACK •* 

* , • * 


***** 03 ********** 

* * 

♦ REPLACE * 

<* BY BUYS *. 

♦ TRIPLE * 

♦ * 
***************** 


.* IS *. 

* DUMMY *. YES 
= TOP OF 
STACK .* 


.* HAS *. 

. * DUMMY *. NJ 
.X*. BEEN USED 
*. . * 


***************** 


*****P, 5 ********** 


***************** 


** ***Q5 ******* *** 


***************** 


*****03********** 

♦ PLACE REF * **** 

♦ FROM TOP OF * * * 

► X* STACK IN *....X* A1 * 

♦ BUY TRIPLE * X ♦ * 

♦ ♦ * **** 

***************** , 


BR2 

*****P3* ********* 

♦ INSERT * 

♦ ASSIGN TO * 

. . . X* DUMMY IN *. 

♦ TEXT * 


***************** 


*****P4*********« 


***************** 


NO .* END *. 

.••*. OF 

*. PROGRAM .* 

*. .* 

*. • ♦ 

♦ YES 
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Chart IM. Phase IM Overall Logic Diagram 


***** 
*IM * 
* a 2* 


* * 

* LOAD * 

* MODULES AND * 

* INITIALIZE * 

* * 
***************** 


* B2 *.X 


**** 

GNTRIO X 

***** 32 ********** 

* SCAN FOR * 

* PROCEDURE, * 

* <=UNCTIUN, * 
♦INVOCATION, OR * 
♦END OF PROGRAM « 
***************** 


.* HAS *. 

.* END OF *. YES 
♦.PROGRAM BEEN 
«. FOUND .« 


***** 

♦ JK ♦ 

♦ Al* 


***** 02 ********** 
♦IDENTIFY LOWEST* 

* LEVEL * 

* INVOCATION * 
♦STACKING START * 
♦OF OUTER LEVELS* 
***************** 


**** 

* * 

* E2 *.X 

* * 
#*** 


E2 ♦. 

. * ♦ . 

.* IS *. YES 
>. FUNCTION 
♦.BUILT-IN .* 


GNPLI6 

*****F1»* ******** 

* FORM TABLE * 

* OF FAMILY * 

* MEMBER *X. 

* DESCRIPTIONS * 

* ♦ 
***************** 


*«***G1 ********** 

* 10ENTIFY ANU * 

* RESOLVE * 

* CHAMELEON * 

* ASSIGNMENTS * 

* * 


GNL06 X 

**«**H1 ********** 

* FORM ENTRY * 

* RELATING TO * 

* PARTICULAR * 

* INVOCATION * 

* * 
***************** 


*****jl********** 

* CHECK FOR * 

* ONE AND ONLY * 

* ONE AGREEMENT * 


***************** 


GNFM3 X 

*****1^^ ********** 

* REPLACE * 

* ORIGINAL * 

* REFERENCE *. 

* IN TEXT * 

* * 
***************** 


♦****G2 ********** 

* IDENTIFY AND * 

* RESOLVE * 

* CHAMELEON * 

* ASSIGNMENTS * 

* * 
***************** 


GNF027 

»****H2 ********** 

* PLACE RESULT * 
•DESCRIPTION IN * 

. . X*TEXT FOLLOWING * 
♦FUNCTION PRIME * 

* TRIPLE * 
***************** 


GNF04 .*. 

J2 *. 

.* WAS *. 

.* FUNCTION *. YES 
*. INVOCATION .*.... 
NESTED 


*. 


*. .* 


. * 


*****J3********** 

♦RESTORE POINTER* 
♦TO NEXT LOWEST * 
LEVEL OF * 
INVOCATION * 

* * 
***************** 


.X* 




* NO 



* NO 





. **** 






* 

# * * 






X 

..X* E2 * 






**** 

♦ * 






* * 

**** 





GNBIFH 

*****E4********** 

* ACCESS * 

* BUILT-IN * 

...X* FUNCTION * 

* TABLE ENTRY * 


***************** 


♦****F4 ********** 
* * 

•CHECK ARGUMENTS* 

* FOR CORRECT * 

* NUMBFR * 

* * 
***************** 


GNARID X 

*****34********** 

♦CHECK ARGUMENTS* 
♦FOR VALID TYPE * 

♦ CONVERTING IF * 

♦ NECESSARY * 

♦ * 
***************** 


*****144 ********** 

♦ IDENTIFY AND * 

♦ RESOLVE ♦ 

♦ CHAMELEON ♦ 

♦ ASSIGNMENTS * 

♦ * 
***************** 


.♦. 

J4 ♦. 

.* ♦. 

.♦ IS < 
. FUNCTION 
♦. GENERIC .< 

♦. . * 

♦ . .♦ 


GNB08 

*****J 5* ♦»*♦**♦** 

♦ SELECT ♦ 

♦ RELEVANT ♦ 

...X* FAMILY ♦ 

♦ MEMBER ♦ 


***************** 


GNB16 X 

*»***K4* ********* 

* PLACE RESULT * 
♦DESCRIPTION IN * 

....♦TEXT FOLLOWING *X. 
♦FUNCTION PRIME * 

* TRIPLE * 

***************** 


** ***k5**» ******* 

* REPLACE * 

* ORIGINAL * 

.* REFERENCE * 

* IN TEXT * 

* * 
***************** 
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Table IA. Phase IA Translator Stacker 


Statement or Operation Type 

T ~ ~ T 

|Main Processing! 

1 Routine j 

x ± 

Subroutines Used 

Scans source text 

| ESCAN 

x 

T 

| None 

J. 


Compares transfer vector 

T 

j EACTNC 

T 

j ECOO to 

_L 

ECOF 

Stacks transfer vector 

| EACTNS 

T 

| ESOO to 

ES2C 

Generates triples 

j 

1 EGENR 

1 

JL 

j EGENR2, 
j EREPL, 

_ X 

EGENR3, ENEWBL, ENOREP, 
ETRBMP 


Table IA1. Phase IA Routine/Subroutine Directory 


r t- 

| Routine/Subroutine | 



| EACTNC 

EACTNS 

ECOO to ECOF 
EGENR 
EGENR2 

EGENR3 
ENEWBL 
ENOREP 

EREPL 

ESCAN 
ESTCAC 

ESOO to ES2C 
ETRBMP 


Function 


Compares transfer vector. 

Stacks transfer vector. 

Provide comparison action for each operator. 

[Generates triples. 

Generates triple for top stack operator, with blank first operand, 
[then deletes the operator from the stack. 

| Generates triple with two blank operands . 

[Obtains and chains new text block for output, resets output pointer. 

Deletes top stack operator, flags new top operand as the result of 
the triple just generated. 

Replaces top stack operator by its prime, to indicate end of a list 
of function arguments or subscripts. 

Scans source text. 

Places operand in stack. 

Handle stacking of operators. 

increments output point over one triple if end of text block is 
found. 
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Table IG. Phase IG Translator Pre-Generic 


Statement or Operation Type 

"T 

| Main Processing 
J Routine 

-4- 

T 

1 

1 

Subroutines Used 

Scans text for BUY aggregate argu- 
ment dummies, end-of -block, and 
end-of-program triples 

1 

j GSl 

1 

1 

T 

| FR, BR, TRF1 , GS12 

1 

1 

X 

Obtains next text block 

1 

| GS12 

1 

T 

| None 


Transfers text to output block 

I — 

j TRF1 

-± 

j None 


Transfers text skeletons to output 

1 

| TRF2 

| GSl , 

TRFl 

Stacks and unstacks information on 
encountering function and function 
triples 

. | 

JFR, FRP 

1 

1 

4 . 

j None 

1 

1 


Inserts assignment statement for 
aggregate argument dummies 

+ 

|BR 

i 

j GSl , 

1 

TRF2 


Table IG1. Phase IG Routine/Subroutine Directory 


j Routine/Subroutine J 


Function 


Inserts assignment statements for aggregate argument dummies. 
Transfers point for IGNORE triple. 

Inserts assignment into text. 

Makes new dictionary entry for temporaries. 

Processes second BUY. 

Stack and unstack information on encountering function and function' 
triples. 

Scans text for BUY aggregate argument dummies, end-of-block, end-of- 
program triples. 

Chains to next text block on encountering an end of block marker. 
Transfers text to the output block. 

Transfers text skeletons to the output block. 








Table IL. Phase IL Translator Pre-Generic 


Statement or Operation Type 

jMain Processing! 

| Routine j 

i i 

Subroutines Used 

Moves function table to scratch 
storage. 

j BASROU j None 

1 1 

JL _ X 



Table IM. Phase IM Translator Generic 


Statement or Operation Type 

|Main Processing! 

! Routine j 

X X 

Subroutines Used 

Selects function for processing 

j GNFUNC 

j GNXTRP 




Selects generic procedure 

| GNPLIG 

X 

| GNDRTA, 

GNXTRP, 

GNFMID 


Selects generic Library routines; 
determines function result 

T 

] GNBIFH 

1 

I 

X 

j GNARID, 

| GNGNCR, 

| GNSBAR, 

GNCBEF, 

GNPRSC, 

EXPANL 

GNCACI, 

GNSACH, 

GNCTBI, 

GNSAPC, 

T 

Selects chameleon dummy and inserts JGNCHAM 
it in relevant dictionary entry j 

X 

j GNXTRP, 

j 

EXPANL 



Controls scan of text — branches 
to processing routine 

j EXPANL 

1 

X _ 

| ARITH, 

1 

_ X 

LST1, SUBSPT, ASSIGN 
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Table IM1. Phase IM Routine/Subroutine Directory 

r t 

| Routine/Subroutine | 

I- + 


Function 

Calculates type of result of arithmetic operation (except **) . 
Returns to calling phase with result. 

Controls scan of text — branches to processing routine. 

Identifies argument of built-in function and converts it to valid 
type, if possible. 

Selects generic Library routine; determines function result. 

Selects relevant family member. 

Sets up result type of a built-in function. 

Checks and converts a decimal integer. 

Standardizes argument code byte to a form for generic selection. 
Selects chameleon dummy and inserts it in relevant dictionary entry. 
Converts from decimal to binary. 

Analyzes dictionary type. 

Processes end-of-block marker. 

Processes end-of-program marker. 

Identifies family member. 

Selects function for processing. 

Checks for nested function situation. 

Sets up result type of a PL/I function. 

Replaces original reference in text. 

Forms entry relating to particular invocation. 

General conversion routine. 

Forms table of family member descriptions. 

Selects highest mode, scale and precision of variable argument list. 
Performs special argument check. 

Calculates scale and precision of a function result. 

Handles a subscripted argument. 

Scans source text. 

Gets next triple. 

Calculates type and length of result of string operation. 

Adds type of array to stack. 


ARITH 

(10) 

ASSIGN 

(10) 

EXPANL 

(10) 

GNARID 

(IP) 

gnbifh 

(IP) 

GNB08 

(IP) 

GNB16 

(IP) 

GNCACI 


GNCBEF 


GNCHAM 


GNCTBI 


GNDRTA 


GNEOB 


GNEOP 


gnfmid 

(IQ) 

GNFUNC 


GNF04 


GNF027 


GNFM3 

(IQ) 

GnLO 6 

(IQ) 

GNGNCR 


GNPLIG 

(IQ) 

GNPRSC 

(IP) 

GNSACH 


GNSAPC 


GNSBAR 


GNTRID 


GNXTRP 


| LSTl (10) 

SUBSPT 

(10) 
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Chart 06. Aggregates Logical Phase Flowchart 


***** 
*06 * 
* Al* 


*****A1********** 

♦STRUCTURE JK* 
*_ *-*_*_*-*-*-*-* 

♦ STRUCTURE * 

♦ PROCESSOR * 
♦SCANS DATA CHNS* 
***************** 


X 

.♦. 

B1 

• ♦ *• 

.* ANY *. YES 
*• DEE I NED 

*. ITEMS • * 

*. •* 

*. .* 

♦ NO 


* * * 4c * 9 2 * * ** * * * * * * 

♦DEFINED JP* 

*_*_*_*_*_*_*_#_* 

* DEFINED CHECK * 

* * 
************ ***** 


X 

***** 
*07 ♦ 
* Al* 
* * 


X 

***** 
*07 * 
* Al* 
* * 
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Chart JK* Phase JK Overall Logic Diagram 


ST8ASE 

****$Q4 ********** 

♦ GENERATE * 


SFTOVS, SETOVA **** 


« X* , DR TEMP .*.... X* E5 


*****K1 ********** 
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YES 


Chart JP. Phase JP Overall Logic Diagram 


.♦X* DEFINED CHAIN * X*, OF CHAIN 


***************** 


STRCMP 
YES .♦ 


DOES ♦ . 
EFINED * 
STRUCTURING 
MATCH .♦ 
.BASE .* 


♦ *4>*A 4* ♦♦♦♦♦♦♦♦ 


*************** 


**** . 

• NO 

JP200 .*. JP541 

B3 *.’ B4 *. 

.* *. .♦ ARE *. 

.* IS *. YES .* DEFINED *. YES 

• • • • X* I TEM STRUCTURE.* X*.ITEM AND BASE.*.... 

*. .* X *.$AME DATA.* 

*. .* . *. TYPES.* 

*. .* . *. .* 

* **** * 

* ***** 

* B4 * * 

* ♦ F4 *X.. 

***** * . 

**** . NO 


.*IS BASE*. 

.* DEFINED *. 

*. ITEM .* 

*. ADJUST- .* 

*• ABLE .* 

*. .* 

* YES 

* . **** 

* . * * 

* ..X* A 1 * 

* * 

*•** 


.♦CORRESPOND-*. NO 


DEFINED 

ITEM 

PACKED 


**** 

* * 

* Cl * 

* * 
**** 


**** 

* * 
* B3 * 


DEFINED *. YES 


.* IS 

YES .* BASE 
...*. CODED 
. *. ARITH 


****p i** ******* 

* ERROR 

* 

*************** 


*X *. I TEM VARYING 


ITEM DIMENS- .* X*. 


****E3********* 

* * 

* ERROR ♦ 

* * 
*************** 


***«D5* ******** 

* * 

* ERROR * 

* * 
*************** 


**** 

* * 

* F4 * 

* * 
*♦♦♦ 


ITEM AND 
♦.BASE SAME. ♦ 
♦.TYPES. ‘ 


♦ B4 *X. 

* * 
**** 


• X*. MENTS STRINGS.* 
*. OF BASE .* 
♦.TYPE .* 


**** 31 ********* 

* * 
♦ ERROR * 

*************** 


♦.ITEM DIMENS- 


****34********* 

* * 

* ERROR ♦ 

* * 
*************** 


♦A STRUCTURE*. NO .* 

OF PACKED • *X 


* J4 * 
**** 


ERROR ACTION IS TO 


TERMINATE THE COMPILATION 


DIMENSIONED 


..X* J4 * 
**** 

****K2********* 

♦ ERROR * 

*************** 


SUBSCRIPTED 


♦OR DEFINEO 


**+**K4* ********* 

♦COMPARE DEFINED* 
♦LENGTH AND POS * 


****j 5* ♦♦♦*♦*♦♦ 

* 

ERROR ♦ 

*************** 


***************** 
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Table JK. Phase JK Aggregates Structure Processor 

r n 


Statement or Operation Type 

j Main Processing 
| Routine 

1 

| Subroutines Used 

X 


scans AUTOMATIC, STATIC, and 
CONTROLLED chains 

T 

| SCNCHN 

1 

.j. 

I ADRDV, CHKDEF, 
j PROCDT, PROCST, 

j. 

MKDVD, MKRDV, 
SETBRF, TERMWS 


Processes DEFINED items 

J CHKDEF 

1 

jcMPILl, INOBJ, 

| STBASE 

PROCDT, PROCST, 


Processes structures (calculates 
offsets, multipliers, sizes, 
alignments and padding; generates 
object code) 

.j. 

] PROCST 

1 

1 

1 

-j- 

_j_ _ . 

| CMPILl, INOBJ, 

1 

1 

1 

-j- 

ELSIZ 


Processes arrays (calculates mul- 
tipliers and generates object code 

| PROCDT 

1 

-j- 

jcMPILl, INOBJ, 

1 

LOADCN, SP54 


Calculates storage offsets for 
adjustable items in structures 

J PS 2 5 

1 

-j. 

jcMPILl 

1 

..j. 



Calculates storage offsets for 
adjustable arrays 

| ALVACA 

1 

| CMPILl 

1 



Calculates storage offsets for 
adjustable strings 

t - 

| ALVACI 

1 

.X 

j _ . 

| CMPILl 

1 



T 

Generates code to initialize string J SVARY 
dope vectors for arrays of varying | 
strings in structures | 

X 

| ... . ... . 

j CMPILl, INOBJ, 

1 

1 

-X ., 

IPDV, VOBJC 


t 

Generates code to initialize string JVOBJC 
dope vectors for varying, non- | 

structured arrays j 

X 

| CMPILl, INOBJ, 

1 

1 

j ... . 

IPDV 


Generates code to calculate the 
starting address of storage for 
overlay defined items 

j STBASE 

1 

1 

j CMPILl 

1 

1 

.X 



Adds text skeletons to the output 
stream 

| CMP I LI 

1 

-4- 

1 

| None 

1 

4 



Makes dictionary entries for dope 
vector descriptions 

1 

| MKDVD 

1 

.X 

T 

| ELSIZ 

1 

_4 ... . 



T 

Makes dictionary entries for record | MKRDV 
description vectors j 

X 

T 

| MKCNST, CMPILl 

1 

_x 



Generates code to set the address 
in a record description vector at 
object time 

1 ADRDV 

1 

1 

.X 

T 

| INOBJ, CMPILl 

1 

1 

1 . . . 



T 

Calculates the length and alignment | ELSIZ 
of scalar data items { 

T 

| None 

i 




H 


■H 


■H 
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r t 

| Routine/Subroutine | 

J- 


Table JK1. Phase JK Routine/Subroutine Directory 

Function 

Generates addressing code for AUTOMATIC RDVs. 

Calculates storage offsets for adjustable arrays. 

Calculates storage offsets for adjustable strings. 

Processes DEFINED items. 

Adds text skeletons to the output stream. 

Determines size of storage required for structure base elements. 
Initializes object code statements. 

Generates code to set up primary dope vectors. 

Generates object code to load object registers with constants known 
at compile time. 

Makes dictionary entries for DVDs. 

Makes dictionary entries for RDVs. 

I 

(JM) | Gets the next structure base reference. 

Processes arrays. 

Processes structures. 

Calculates storage offsets for adjustable items in structures. 

Scans AUTOMATIC, STATIC, and CONTROLLED chains. 

Sets the reference to the current entry type 1. 

Sets the dynamic dope vector size for non-ad justable structures. 
Calculates base element multiples. 

Generates code to initialize starting address storage for overlay 
defined items. 

Generates code to initialize string dope vectors for arrays of 
varying strings in structures. 

Terminates object code. 

Generates code to initialize string dope vectors for varying, non- 
structured arrays. 


ADRDV 

(JL) 

ALVACA 

(JL) 

ALVACI 

(JL) 

CHKDEF 

(JM) 

CMP I LI 

(JL) 

ELSIZ 


INOBJ 

(JL) 

IPDV (JM) 

LOADCN 

(JL) 

MKDVD 


MKRDV 

(JM) 

NXTREF/NXTRF1 

PROCDT 

(JM) 

PROCST 


PS25 


CHNSCN 

(JL) 

SETBRF 

(JL) 

SETDVS 


SP54 


STBASE 

(JM) 

SVARY 

(JL) 

TERMWS 

(JL) 

VOBJC 

(JL) 
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Table JP. Phase JP Translator Defined Check 
r t- 


I” 


Statement or Operation Type 


Main Processing! 
Routine | 


Subroutines Used 


Scans DEFINED chain; checks 
validity 


IEMJP 


GETCLS,, GETLTH, STRCMP 


| Checks that two structure descrip- 
tions are the same and that they 
j may be validly overlaid 

L 


' + 

| None 

I 

I 


STRCMP 


Table JP1. Phase JP Routine/Subroutine Directory 


r t- 

| Routine/Subroutine | 


Function 


GETCLS 

GETLTH 

IEMJP 

JP8 

JP20 

JP200 

JP540 

JP541 

JP542 

JP543 

STRCMP 


Analyzes structure descriptions, and checks that all elements are of 
the same defining class. 

Obtains length of string or numeric field from associated dictionary 
ent ry . 

Controlling scan of DEFINED chain; checks validity. 

Tests whether defined item is packed. 

Tests whether base defined item is adjustable. 

Tests whether item is a structure. 

Tests whether defined item is coded arithmetic. 

Compares base and defined item. 

Tests whether defined item is dimensioned. 

Tests whether base code is arithmetic. 

Compares structure descriptions. 


Table JZ. Module JZ Compiler Control 

r t t 

| | Main Processing! 

j Function | Routine j Routines Used 

j. + 1 

| Reconstructs the phase directory | IEMJZ | RLSCTL, ZUPL* ZEND 

| for the second half of the compiler! | 

I I I 

I Entry to OS/360 ; BLDL | | 

L X X 


I 

I 

A 

I 

I 

I 
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Chart 07. Pseudo-Code Logical Phase Flowchart 


*****£!********** 
♦SCAN LA* 

*—*—*—*—*—*—*—*—* 

* UTILITY * 

* SCANNING * 

* PHASE * 

***************** 


X 

.♦. 

til ♦. 

. * * • 

.♦ DYNAMIC *. YES 
*. INITIAL •♦.... 
♦ . .♦ 


*****B2^^ ♦♦♦♦♦♦* 
♦INITIAL LB* 

*-*_*_*_*—*_*-*.-* 

X* CONSTRUCT * 
* TRIPLES FOR * 
♦DYNAMIC INITIAL* 
***************** 


*• . * 
*• • * 

* NO 


*****C2********** 

* INITIAL LD* 

*—#_*_*— *-*_*-*_* 

X* CONSTRUCT * 

* TRIPLES FOR * 
♦STATIC INITIAL » 
***************** 


***** Q2********** 
♦DO EXPANSION LG* 
*_*—*— *- *_*— -* 
<♦ EXPAND * 

* DO LOOPS * 

* if. 
***************** 


*****£ 1 ********* ft 

♦ EXPN EVAL LR.LS* 
*—*—♦—*—*—*—*—*—* 
♦CONVERT EXPR- * 
*ESS I ON TRIPLES * 
*TO PSEUDO-CODE * 
***************** 


*****P1 ********** 

♦STRING UTILS LV* 
*-*_*-*_*_*_*-*-* 

♦ PROVIDE * 
♦STRING HANDLING* 

* FACILITIES * 
****** *********** 


G1 *. 

.* ANY *. 

.* STRING *. YES 
. EXPRESSIONS .*.... 
♦ . . * 


♦ ****G2 ********** 
•STRING HANDL LW* 
*_*_*_*_*_*_*_*_* 

<* CONVERT * 
♦STRING TRIPLES * 

* * 
******** ********* 


.*• 

HI *. 

.* ANY *. 
•♦PSEUDO— VARS*. YES 
*• OR MULTIPLE .*.... 
*. ASSIGNS .* 

*• .* 

*. .* 

* NO 


.*. 

J1 *. 

.* ANY *. 

.* IN-LINE *. YES 
*. FUNCTIONS .*.... 
*. .* 

*. .* 


*****H2********** 
♦PSEUDO-VARS MB* 
*-*-*-*-*-*—*—*_* 
.X* CONSTRUCT * 
♦PSEUDO-CODE FOR* 
♦PSEUDO— VARI ABLS* 
***************** 


*****J2********** 
* I N-LNE MG, MI • MK* 
*_*_*_*_*_ *- *-*_ * 
, X* CONSTRUCT * 
♦PSEUDO-CODE FOR* 
♦IN-LINE FUNCTNS* 
***************** 


.* ANY *. 

.* GENERIC *. YES 
'. ARGUMENTS .*.... 


.* ANY *. 

.* FUNCTION *. YES 
*. REFERENCES .*.... 


*****AA********** 

* CALLS E FNS ML* 
*-*-*-*-*-*-*-*-* 

<* PROCESS * 

* GENERIC * 

* ENTRY NAMES * 
***************** 


*****B *********** 
♦CALLS t FNS MM* 
*— *-*-* - *-*_*_*..* 
,X*PP0CE$S CALL * 

♦ E FN PROCEDURE- * 

♦ INVOCATIONS * 
***************** 


*****Q^.********** 

* STRING L V ♦ 

*_*_*_*_*_*_*_*_* 

* PROVIDE * 

♦STRING HANDLING* 

* FACILITIES * 
***************** 


. * . 

03 *. 

.* NEED *. 

.* TO *. YES 

•REORDER STRING.*.... 
*. BUYING .* 

♦.CODE .* 

*. . * 

* NO 


**4t**DA********** 
♦BUY t SELL MP* 
*-*-*—*-#-#-*—*-* 
<* REORDER * 

* BUY AND SELL * 

* STATEMENTS * 
***************** 


. . * 

*. .* 

* NO 


*****£ 4 ********** 

♦SUBSCRIPTS MS* 
*-*—*-*-*-*-*-*-* 
•X* CONSTRUCT * 
* PSEUDO-CODE * 
♦FOR SUBSCRIPTS ♦ 
******** ********* 


*****F3 ********** 

♦ BR , ON, RETNS NA* 
*-*—*-*—*—*—*—*—* 

♦ MAKE PSEUDO- ♦ 
♦CODE FOR BRAN- * 
•CHES, RETURN, ETC* 
***************** 


.* DISPLAY *. YES 
. OR DELAY .*.... 
*. STATEMENT.* 


*****G4********** 

*0/S SERVICES NG* 

*-*-*-*_*-*-*-*_* 
.X* MAKE LIB CALL * 
♦SEQS FOR DELAY * 
*£ DISPLAY STATS* 
***************** 


.* ANY *. YES 
*. RECORD— I /O .* 

* . . * 

* • . * 

*. . * 

* NO 


*****H4********** 

♦RECORD- I/O NJ* 
*_*_*_*_*_*_*_*_* 
.X* MAKE LIB CALL * 
♦SEQS FOR STREAM* 
* ORIENTED I/O * 
***************** 


03 *. 

.* ANY *. 
.♦STREAM-1/0,*. 
*. OPEN, OR 
*. CLOSE .* 


***** J4* ********* 

♦STREAM- I /0 NM* 
*_*_*-*-*-*-*-*-* 
,X* MAKE LIB CALL * 
•SEQS FOR STREAM* 
* ORIENTED I/O * 
***************** 


K3 *. 

.* ANY *. 

.* DATA OR *. YES 
►. FORMAT .*.... 
*. LISTS .* 

*. .* 

*. . * 

* NO 


*****K4********** 
♦DATA FORM NT , NU* 
*-*-*-*-*-*-*-*-* 
.X* MAKE LIB CALL * 
♦SEQS FOR DATA/ * 
* FORMAT LISTS * 
***************** 


«****B5* ********* 
♦COMPILER P NS OB* 
*-*-*_*_*-*_*_*_* 

♦ PROCESS ♦ 

♦ COMPILER p NS L ♦ 

♦ PSEUDO- VAR I ABLS ♦ 
******** ****** *** 


*****C5********** 

♦ASSIGNMENT OF* 
*_*-*_*_*_*-*_*_* 

♦ CONSTRUCT ♦ 

♦ PS £ J DO-CODE 

♦ ASSIGNMENTS ♦ 
***************** 


*****Q5* ********* 

♦ RELEASE ♦ 

♦ utilities, * 

♦ IEMLA, AND ♦ 

♦ IEMLV ♦ 

♦ * 
***$****♦*♦♦♦♦*** 


*****p5********** 

♦LIBRARY CALL OG* 
*-*-*-*-*—*—*-*-* 

* GENERATE * 
♦LIBRARY CALLING* 

* SEQUENCES * 
***************** 


♦****F 5* ********* 
♦CONSTANTS OS* 

♦CONVERT CONSTS* 

♦ TO REQUIRED ♦ 

♦ INTERNAL FORM ♦ 
***************** 
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Chart LA. Phase LA Overall Logic Diagram 


***** 
*LA * 
* Al* 


*«***AX ********** 

* INITIALIZE * 

♦FLAGS, POINTERS* 

* AND LOAD * 

* ADDRESS * 

* * 
***************** 


*****B1 ********** 
* * 

* TRANSFER TO * 

* APPROPRIATE * 

* SCAN ROUTINE * 

* * 
***************** 


X 

***** 

♦ LB ♦ 

♦ Al* 


THESE ROUTINES ARE SCAN 
ROUTINES CALLED BY 
COMPILER PHASES IEMLB 
THROUGH IEMOE. 


*t nVHfl 

*****53********** 

* MOVE SOURCE * 

* TEXT FROM * 

* INPUT BLOCK *. 
♦TO OUTPUT BLOCK* 

* * 
***************** 


* MOVE USER * 
♦GENERATED TEXT *. 
♦TO OUTPUT BLOCK* 

* * 
***************** 


****B4********* 

* * 

.X* RETURN ♦ 

* * 

*************** 


'***** 01 ********** 

* * 

* MOVE CURRENT * 

* TRIPLE TO ♦ . 

* OUTPUT * 

* * 
***************** 


***************** 


***♦*03 ********** 

* * 

* SCAN FOR * 

<* REQUESTED *• 

* TRIPLE * 

* * 
***************** 


****04********* 

* * 

► RETURN * 

* * 

*************** 


* MARK CURRENT * 

* INPUT BLOCK * 

* WANTED * 

* * 
****************4 


SC5 , SC7 

♦♦♦♦♦FI ********** 

* MARK CURRENT * 

* INPUT BLOCK *. 

* NOT WANTED * 

* * 

***************** 


*****£2********** 

* * 

* ACCESS * 

<* NEXT *. 

* TRIPLE * 

* * 
***************** 


3 ********** 


****£4********* 

X * 

RETURN * 

*************** 


***************** 


it SHUA 

*****Q1 ********** 

♦ * 

♦ MARK CURRENT ♦ 

♦ INPUT BLOCK ♦. 

♦ WANTED ♦ 

♦ * 
***************** 


*****m**** ****** 

* MARK CURRENT * 

♦ INPUT BLOCK ♦. 

♦ NOT WANTED ♦ 

* * 
***************** 


*****Q2 ********** 

♦ UPDATE INPUT ♦ 

♦ POINTER TO ♦ 

. X^REGI STER STATUS*. 

* BYTFS * 

* * 
***************** 


G3 


♦ . 


• * ♦ • 

.♦ WAS ♦.NO 
.X*. ENTRY AT 

*. SC10A .♦ 

*. . * 

*• • * 

* YES 


*****G4********** 

* MOVE THE * 
♦CODE DELIMITED ♦ 

.X* BY JMP TRIPLE ♦. 
♦TO OUTPUT BLOCKS 

♦ ♦ 
***************** 


♦ ♦♦♦^♦♦♦♦♦♦♦♦* 

* * 

* RETURN * 

* * 
*************** 


SC10 

***** J 1********** 

♦ CONVERT THE ♦ 

♦ SYMBOLIC ♦ 

♦ INPUT POINTER ♦. 

♦ TO ABSOLUTE ♦ 

♦ ♦ 
***************** 


***** j2* ********* 


♦ ♦♦♦J 3********* 

♦ * 

,X^ RETURN * 

* « 

*************** 


***************** 
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Chart LB. Phase LB Overall Logic Diagram 


SCAN X 

2 ********** 

* SCAN TEXT FOR * 

* PROC, BEGIN, * 
...X* ALLOC', E3P *X 

* TRIPLES * 


***************** 


.* WAS *. 

*. EOP TRIPLE .*. 
*. FOUNO .* 

*. .* 


*****£1 ********** 

* MAIN * 

*-*-*-*- *-*_*-*-* 

* PROCESS *X 

* ANY INITIAL * 

* ATTRIBUTE * 
***************** 


***************** 


***** 02 ********** 


***************** 


• * . 

E2 *. 

.* WAS *. 

YES .* ALLOCATE *. NO 
....*. TRIPLE .*... 
*. FOUNO .* 


* SCAN DOWN * 

<* AUTOMATIC *. 

* CHAIN * 

* * 
***************** 


NO .* END OF *. 
...*. AUTOMATIC .* 
*. CHAIN .* 

*. . * 


*****£ 4 ********** 

* MAIN * 

*-*-*-*-*-*-*-*-* 

<* PROCESS * 

* ANY INITIAL * 

* ATTRIBUTE * 

***************** 


**** 01 ********* 

► ENTRY * 

* TO MAIN * 

* * 
****** ********* 


IS 

initial 
FLAG ON . 

. * 

* # . * 

* YES 


****33********* 


*************** 


.* IS *. YES 

ITEM AN 
*. ARRAY .* 


* DELETE * 

<* INITIAL * 

* ATTRIBUTE * 

* * 
***************** 


It* J2*«******i* 


***************** 


CNSTWK X 

***** K 2***< t < f ****< 1 

* OUTPUT * 

* SN2 AND * 

* ASSIGNMENT *. 

* TRIPLES * 


***** 3********* 


*************** 


***************** 
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Chart LD. Phase LD Overall Logic Diagram 


STATIC X 

♦ft## ft A 1 ♦♦♦♦♦♦#♦# ft 

* SCAN STATIC * 

* CHAIN FOR * 

..X* INITIAL * 

* ITEMS * 

* * 
***************** 


ST0006 X 

ftftftftftQjftftftftftftftftft* 

* LOCATE * 

* INITIAL * 

* VALUE * 

* STRING * 

* * 
***************** 


Cl *. 

.* IS *. 

•* DATA *. 
*. ITEM AN 
*. ARRAY .* 

♦ • • ft 

ft. .ft 

* NO 


GAA1 

#♦♦ ♦ ft (^2 ft ft# ♦♦♦♦♦♦< 

* SCAN * 

ft INITIAL * 

...X* VALUE * 

* STRING < 


« *. 

C3 ft. 

.ft IS *. 

.ft ITEM A *. 
.X*. REP 

ft. FACTOR .* 


♦♦♦♦♦♦♦♦ ftftftftftftftft# 


CNSTWK 

* ftftftft[“4ftftftftftftftftftft 

* OBTAIN * 

* CORRECT ENTRY * 


* CONSTANT ft 

* CHAIN * 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ft 


CNSTWK X 

ftftftftftQl ft ftftftftftftftft ft 

* OBTAIN * 

* CORRECT ENTRY * 

* ON * 

* CONSTANT * 

* CHAIN * 

******** ********* 


ST9999 X 

*****£!********** 

* MAKE SLOT * 

* FOR * 

* CONVERTED * 

* CONSTANT * 

* * 
***************** 


ST 0088 X 

*«***£{ ********** 

* RESET * 

* INITIAL * 

* VALUE * 

* ENTRY * 

* * 
***************** 


NO .* END 
...*. OF CHAIN 
*. 

*. . * 

*. .* 

* YES 


* CONVERT TO * 

* FULL WORD * 

* BINARY * 

* * 
***************** 


* SET UP * 

* TABLE OF *X 

* ENTRIES * 

* * 
***************** 


ST0006 X 

* POINT * 

* INITIAL ft 

* VALUE SLOT * 

* TO TABLE * 

* * 


GAC3 X 

ftftftftftQ^ftftftftftftftftftft 

* MAKE SLOT * 

ft for * 

* CONVERTED ft 

ft CONSTANT ft 

ft ft 

♦♦♦♦♦♦ft# ft####### ♦ 
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***** 
*LG * 
* Al* 


LGG000 X 

*****A1* ********* 
♦INITIALIZATION * 

♦ GET SCRATCH * 

♦ STORAGE FOR * 

♦ -DO BLOCKS * 

♦ * 
***************** 


LGC002 X 

***** 01 ********** 
♦ LA * 

*_*_*_*_*_*_*-*-* 
..X* USE SCI TO * 

• ♦LOOK FOR TRIPLE* 

. * OF INTEREST * 

* ***************** 
**** 


*• • * 
♦ . .* 

* NO 


* GENERATE TEST ♦ 
.X* CODE FROM DO *. 

* STACK ENTRY * 

* * 
***************** 


***************** 


***** 
»LS * 
* Al* 


D1 *. 

* *. 

ITDO 

* # , * 
*. .* 

* NO 


*. .* 
*. .* 

* NO 


LG0013 

*****C 2 ********** 

* PUSH DOWN DO * 

* STACK AND * 
...X* INITIALIZE * 

* NEW STACK * 

* ENTRY * 

***************** 

* **** 

. * * 
..X^ B1 ♦ 

* * 
**** 

L GOO 1 1 

***** 02 ********** 

* PUSH OOWN 00 * 

* STACK AND * 
...X* INITIALIZE *. 

* NEW STACK * 

* ENTRY * 

***************** 


LGG012 

*****^ 2 ********** 

* GENERATE LOOP * 

* CLOSING CODE * 

,..X* AND POP UP *. 

* 00 STACK * 


• X* 


***** 03 ********** 

* SCAN CONTROL * 

* VARIABLE TEXT * 
AND SET UP *.. 

* SKELETON IN * 

* STACK ENTRY * 
***************** 


■ . * 
*. .* 

* NO 


***************** 


LG0015 

*****F2********** 

* ALLOCATE * 

* SYMBOLIC REG * 

. ..X* FOR LOOP *. 

* CLOSE * 


**** 

* 4 

. X* 81 * 

* 4 
**** 


***************** 


* ANALYZE THE * 
.X* EXPRESSION IN * 

* ENSUING TEXT * 

* * 
***************** 


HI *. 

• * *. 

.* TO*. BY', *. 
*. OR DO 

*. EQUALS .* 

*, .* 

*. . * 


LG0024 

**** *H2 ********* * 

* GENERATE TEXT * 

* TO ASSIGN * 

...X* PRECEDING *. 

* EXPRESSION TO * 

* A TEMPORARY * 
***************** 


H3 


*. 


.* END OF *. YES 

• X* I TERAT I VE PART.*... X* 

*. OF THIS .* 

* . SPEC .* * * 

*. .* ***************** 

* NO 


GENERATE TEST 
AND 

COUNT CODE 


LG0021 

*****J2********** 
‘SAVE LOOP ENTRY* 

* AND NEXT * 

...X* SPECIFICATION * 

* LABEL REF IN * 

* DO STACK * 

***************** 


**** 

* * 

* A3 * 

* * 
**** 


Section 3: Charts and Routine Directories 173 



Chart LS. Phase LS Overall Logic Diagram 


***#*4X ********** 

* INITIALIZE * 

* WORKSPACE * 

* AND TEMPORARY * 

* DESCRIPTION * 

* STACK * 

***************** 


**** 

LBO X 

***»*BL ********** 

* LA * 

*-*—*-*—*—*-*—*-* 

* USE SCI TO * 
♦LOOK FOR TRIPLE* 

* OF INTEREST * 
***************** 


.* END OF *. YES 
*. PROGRAM .*.... 
*• . * 


EOP2 

*«***C2* ********* 

* MARK NEXT * 

* PHASES IF * 

...X* WANTED AND *. 

* RELEASE LS * 


***************** 


D1 *. 

. * *. 

NO • *EXPRESS I ON *. 
TYPE TRIPLE .* 


* SET UP * 

* OPERAND * 

* DESCRIPTIONS * 

* * 
***************** 


♦****F1 ********** 
* * 

* DETERMINE * 

♦CHARACTERI STICS* 

* OF RESULT * 

* * 
***************** 


• *. 

G1 *. 

.* *. 

.* STRING *. NO 
► . TYPE .*... 

*. RESULT .* 

*• •* 

* YES 


.*' OPERAND ’*. NO * * 

..X*. CONVERSION .*....X* F3 * 

♦•REQUIRED .* * * 

*. .* **** 

*• •* 

* YES 


.* IS *. YES 

*. OPERAND .*.... 
*A CONSTANT.* 


STRING X 

»****Hl ********** 

* OUTPUT * 

* NECESSARY * 
..X* TRIPLES AND * 

* TEMP * 

* DESCRIPTIONS * 
***************** 


RELSTK X 

«****jl* ********* 

* RELEASE * 

* TEMPS USED * 

* FROM TEMP * 

* STACK * 

* * 
***************** 


****** 1 ********** 

* ADO ANY * 

* RESULT TEMPS * 

* TO TEMP * 

* STACK * 

* * 
***************** 


CON VT X 

♦****F2 ********** 

* CALCULATE * 

* BASE, SCALE * 

* MODE, PREC., * 

* OF TARGET * 

* * 
***************** 


♦****G2 ********** 

* SET UP TO * 

* GET OBJECT * 

* TIME * 

* WORKSPACE * 

* FOR TARGET * 

***************** 


ASSIGN X 

♦****H2 ********** 

* GENERATE * 

* ASSIGN TRIPLE * 

* OF SOURCE * 

* TO TARGET * 

* * 
***************** 


***** j2 ********** 

* REVERSE * 

* SOURCE AND * 

* TARGET IN *. 

* TEMP STACK * 

* IF NECESSARY * 

***************** 


CONST 

*****B3********** 

* CREATE * 

* DICTIONARY * 

...X* ENTRY FOR * 

* TARGET * 

* CONSTANT * 

***************** 


**** X 
ARITH2 .*. 

F3 *. 

.* *. 

•* *. NO 

..X*. FIXED POINT .*... 
♦.OPERANDS .* 


LBFL1 

*****P4********** 

* GENERATE * 

* PSEUDO-CODE * 
...X* FOR FLOAT * 

* EXPRESSION * 


***************** 


****«G3 ********** 
* • 

* CALCULATE * 

* SHIFT FOR * 

* ALIGNMENT * 

* * 
***************** 


FXC1 X 

***»*H4 ********** 

* GENERATE * 

* PSEUDO-CODE * 
...X* FOR FIXED * 

* BINARY * 

* EXPRESSION * 

***************** 


ASSIGN X 

****»J 3 ********** 

* GENERATE * 

* ASSIGN TRIPLE * 

* FOR DECIMAL * 

* SHIFT IF * 

* NEEDED * 
***************** 


*****K3********** 
.* GENERATE * 

* PSEUDO-CODE * 

* FOR FIXED *. 

* DECIMAL * 

* EXPRESSION * 

***************** 


****» K 4* ********* 

* COMMON * 

* WORKSPACE FOR * 
.X* TEMPS USED * 

* IF POSSIBLE * 

* * 
***************** 


174 


* B1 * 

* * 

**** 



Chart LV. Phase LV Overall Logic Diagram 


stuto x 

****** i********** 

* INITIALIZE * 

* COMMON * 

* TRANSFER * 

* VECTORS * 

* * 
***************** 


****A2 ********* 


*************** 


STRUT1 

B2 *. 

.* IS *. 

.* SOURCE *. YES 
*. OPERAND A .*.... 
♦.CONSTANT .* 

*. .* 

*, .* 

* NO 


LSUT17 .*. 

C2 *. 

.♦RESULT *. 

.* STRING *. YES 
*. LENGTH .*.... 
*. > 256 .* 

* . . * 

*. .* 

* NO 


THESE TWO ROUTINES ARE 
THE STRING UTILITIES. 
THEY ARE CALLED BY 
COMPILER PHASES IEMLW 
THROUGH IEMOG. 


****A4********* 


*************** 


•****g3 ********** 

♦ CREATE NEW ♦ 

* DICTIONARY ♦ 

<* ENTRY FOR ♦. 

♦ CONSTANT ♦ 

* * 
***************** 


♦****C 3 ********** 
* * 

* CONSTRUCT * 

,X* BUY-ASSIGN * 

* TRIPLE * 

* * 
***************** 


* CONSTRUCT * 

* ASSIGN * 

* TRIPLE * 

* * 
***************** 


LSUT26 X 

*****E2********** 

* GENERATE * 

* ASSIGN AND ♦ 

* ANY TMPD * 

* TRIPLES * 

* * 
***************** 


122 .*. 

F2 *. 

.♦STRING *. 

.♦DOPE VECTOR*. YES 
*. RESULT .*.... 
♦.REQUIRED .* 

* . . * 


STRUT2 X 

**«**B4* ********* 

♦DETERMINE TYPF * 
♦OF STRING DOPE * 

* VECTOR * 

* REQUIRED ♦ 

* * 
***************** 


****«C 4* ********* 

* GENERATE * 

* PSEUDO-CODE * 

* TO INITIALIZE * 

* DOPE VECTOR * 

* IF REQUIRED * 
***************** 


*****D4 ********** 

* SET DOPE * 

* VECTOR * 

* REQUIRED BIT * 

* ON IN DICT * 

* FOR STRING * 
***************** 


*****£&********** 

* INCREMENT * 

* RETURN ADDR * 

* DEPENDING * 

* ON TYPE OF * 

* DOPE VECTOR * 
***************** 


****F4********* 


*************** 


**«**G2 ********** 

* RETURN * 

* DESCRIPTION * 

* OF RESULT * 

* STRING * 


****H2******** 


*************** 
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*#### 
*LW * 
* A 1* 


INITIALIZE 


##******#*###**## 


*****8 i++******** 

* LA * 

*— *-*-*_*-*-*-*-* 

..x* use sci to * 

. *LOOK FOR TRIPLE* 
. * OF INTEREST * 

. ***************** 
**** 


.* 

“no 


.* STRING 
*. OPERATION 

*. 

* . • * 


* SET UP * 

* OPERAND * 

* DESCRIPTIONS * 

* * 
*********** ****** 


*****55********** 
* * 

* DETERMINE * 

♦CHARACTERI STICS* 

* OF RESULT * 

* # 
*********** ****$* 


. * 


G1 


*. 


NO .* OPERAND *. 
...♦. CONVERSION .< 
♦.REQUIRED .* 

*. .* 

*. .* 

* yes 


***** 511 * ********* 

♦ZSTUT1 LV* 
*-#_*_*-*_*_*-*-* 
♦GENERATE PSEUDO* 
♦-CODE TO CONV- * 
* ERT TO STRING * 
***************** 


STRING 

LENGTH 

KNQWN 


. ♦. 

K1 

• * 

.* LENGTH 
256 


♦ . 


*. 


♦ * 


.♦ 

*. .* 

* NO 


}c#*#*#* 


* MARK * 

<* PHASE MP *. 

* IF WANTED * 

* * 
***************** 


***** 

♦ MB * 

* Al* 


#****52 ♦***♦♦♦♦ ** 

* SET FLAGS * 

* ETC. FOR < 

* OTHER TRIPLE * 

* TYPES * 

* * 
#*###*######*#*#* 


*****52 ********** 
* * 

* MOVE TRIPLE * 

* TO * 

* OUTPUT * 


jc *#*#*###* 


***** f -{2 ********** 
* * 

* CREATE MASK * 

* FOR * 

* BOOL FUNCTION * 

* * 
##*##******#####* 


* K2 *. X 


**** 

IIB1 X 

*#***K2 ********** 

* GENERATE * 

* PSEUDO-CODE * 

...X* TO * 

* CALL LIBRARY * 


******** ********* 



.* COMCAT 
. OPERATION 

*. • 


****A5A********* 
GENERATE * 

P SEUDO-CODE * 
FOR *. 

NOT OPERATION * 

* 

<c########**##*** 


LILT 

*****g5********** 

* GENERATE * 

* PSEUDO-CODE * 

,..X* FOR *. 

* CONCATENATION * 

* OPERATION * 
***************** 


STRING *. NO 
LENGTHS .*... 
. EQUAL .* 

*. . * 


.♦STRING < 
LENGTHS 
MULTIPLE 
. OF 8 


.*... .X* K2 * 


LIL8 

*****65********** 

* GENERATE * 

* PSEUDO-CODE * 

...X* FOR * 

* AND-OR * 

* OPERATION * 

***************** 


*****FA********** 

* GENERATE * 

* PSEUDO-CODE * 

* FOR * 

* COMPARE 1 

* OPERATION * 

***************** 


*****F5********** 

* RELEASE * 

* ANY TEMPS * 
(* USED FROM * 

* TEMP STACK * 


***************** 


ADDSTK X 

*****25********** 

* ADD * 

* ANY TEMPS * 
CREATFD * 


TO 
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***** 
*MB * 
* Al* 


♦****A1 ********** 
♦INITIALIZATION.* 

* LOAD SCRATCH. * 

* GET SCRATCH * 

* STORAGE * 

* FOR STACK * 
***************** 

**** 


* 81 *.X 


**** 

MB0001 X 

*****B1********** 

* LA * 

♦-♦—*-♦-*-*—♦-♦-* 

* USE SCI TO * 
♦LOOK FOR TRIPLE* 

* OF INTEREST * 
***************** 


.* PSEUDO- *. YES 
*. VARIABLE .*.... 
*. PSI .* 


D1 *. 

.* END *. 

.* PSEUDO- *. YES 
k. VARIABLE .*.... 
*. PSI' .* 

*. .* 

*. .* 

* NO 


. *. 

El *. 

. * *. 

.* MULTIPLE *. YES 
k. ASSIGNMENT .*.... 
* . 


MBC011 

*****C2*** ******* 

* IDENTIFY * 

* PSEUDO- * 

. . . X*VAR I ABLE. MAKE *. 

* STACK ENTRY * 
♦SET PSI SWITCH * 
***************** 


MB0012 

***** 02 ********** 

* PLACE MARKER * 
*AND TMPD ENTRY * 

. . . X* IN STACK. *. 

* RESET TRT * 


. X* 


*****£ 3 ********** 

* SET LEVEL AND * 

* COUNT TO ZERO * 

AND SET TRT *... 

* TO SCAN FOR * 

* ARGUMENTS * 
***************** 


D3 

.* IS 


* . 


*. 


.* 


FI *. 

. * *. 

.* SIMPLE *. YES 
*. ASSIGNMENT .*.... 
*. . * 

*. .* 

*. .* 

* NO 


.* PSEUDO- *. 
k. VARIABLE 
♦.ARGUMENT .* 


***************** 


MB0014 

*****52********** 
♦FOR FIRST MULT * 

* ASSIGN MARKER * 
...X* SAVE POINTER *. 

* TO CURRENT * 

* STACK LEVEL * 
***************** 


MB0013 . 

F2 *. 

.* MULT *. 

.* ASSIGN UR *. YES 
. . . X* . PSV SWITCH 

*. ON .♦ 

* • • * 

*. . * 

* NO 

. ***♦ 

I.X* B1 * 

* * 
**** 

MB0020 

*****£?********** 

* MAKE ENTRY * 

* IN STACK FOR * 

► . • X* ARGUMENT. * 

♦ ADD 1 TO COUNT * 

♦ ♦ 
******** ********* 


.♦PSEUDO-VAR ♦. NO 
. X*. A DATA LIST 
♦. ITEM .* 

*. .* 

*• .* 

♦ YES 
. ♦ ♦♦* 

. * * 

• . X* J4 * 

♦ * 
♦♦** 

*****£ 3 ********** 

* SET TRT TABLE * 

* TO SCAN FOR * 
,X*SIMPLE ASSIGN. *... 

♦MOVE ANY TMPDS * 

* TO STACK * 

***************** 


MB 1 310 

***** 53 ********** 

* RESET INPUT * 

* POINTER TO * 
...X* START OF *. 

* SEQUENCE OF * 

* ASSIGNS * 
***************** 


MB1311 X 

*****54********** 
♦RESCAN ASSIGNS * 

* AND ASSOCIATE * 
..X* TMPDS FROM * 

* STACK IN * 

* REVERSE ORDER * 
***************** 


MB1343 

*****65********** 

* RESET MULT * 

k. YES * ASSIGN AND * 

.* ..X* PSV SWITCHES. * 

k * CLEAR STACK * 

* * 
***************** 


MB1318 
NO 


*. . * 
*. . * 

* YES 


.* *. 

PSEUDO- * 
*. VARIABLE 
*. TMPD .< 


* B1 * 

* * 
**** 


MB0010 X 

*****J1********** 
♦RELEASE SCRATCH* 

* STORAGE. * 

* RELEASE * 

* IEMMB, IEMMC * 

* * 
***************** 


**** 

* * 

* E4 *X. 

* * 
**«•* 


**** 
k * 

k J4 *„ X 


**** 

MB1320 X 

*****j 4* ********* 
* * 

♦ GENERATE CORF ♦ 
..♦ FOR PSEUDO- ♦ 

♦ VARIABLE * 

♦ * 
***************** 


***** 

♦ MG * 

* A.1* 
* * 
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A !♦♦♦♦♦♦♦♦♦♦ 

* LOAO PHASE HH * 

* AND * 

♦BASE REGISTER. * 
♦OBTAIN SCRATCH ♦ 

* STORAGE * 
***************** 


♦****B I ********** 

* PHASE LA * 

*-*-*-*-*-*-*-*-* 

* USE SCI TO ♦ 
♦LOOK FOR TRIPLE* 

* OF INTEREST * 
***************** 


.*. 

Cl *. 

.* IS *. 

.* IT A *. 
*. FUNCTION 
*. TRIPLE .* 


c AR I N .*. 

C2 ♦. 

.* IS *. 

.* CODE TO *. YES 
.X*. BE PRODUCED 
BY THIS PHASE 


X 

. *. 

D1 *. 

.* IS *. 

.* IT AN *. YES 
♦.IGNORE TRIPLE.*.... 


**** 

: I GN .*. 

D2 *. 

.* IS *. 

.* IT IN *. YES 
•X*. AN IN-LINF .*.... 
♦.FUNCTION .* 


.*. 

El *. 

.* IS IT *. 

.* A SPECIAL *. YES 
*. ASSIGNMENT .*.... 
*. TRIPLE .* 

*. .* 

*• •* 

* NO 


.*. 

FI *. 

.* IS *. 

.* IT AN *. YES 
*. ARGUMENT .*.... 
*. TRIPLE .* 


.* IT IN *. 
.X*. AN IN-LINE . 
* . FUNCTION .* 


**** 

-COM .*. 

F2 *. 

.* IS *. 

.* IT IN *. 
.X*. AN IN-LINE .* 
♦.FUNCTION .♦ 


.* IS IT *. 

.* AN END OF *. YFS 
*. FUNCTION ...... 

*. TRIPLE .* 

♦ . . * 

*. .* 

* NO 


.* IS *. 

.* IT FND OF *. YES 
.X*. AN IN-LINE .*.... 
♦.FUNCTION .* 


LFARI 1 

*****C3********** 

* MAKE ENTRY * 

* IN STACK. * 

...X* MODIFY SCAN *... 

* PARAMETER * 


***************** 


*****03********** 


***************** 


***** E 3 ******** ** 

* MAKE ENTRY * 

* IN STACK TO * 

X* PRODUCE A *. 

* BUY TRIPLE * 

* * 
***************** 


LFDR 

*«***p 3********** 

* INSERT A * 

* DESCRIPTION * 

...X* OF *. 

* ARGUMENT * 

* INTO STACK * 

***************** 


PRODUCE THE 
APPROPRIATE 
IN-LINE 
CODE 


LFMOVE 

*****Q^* ********* 

* * 

* MOVE CODE TO * 
...X* OUTPUT. RESET *. 
♦SCAN PARAMETER * 


***************** 
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Chart MI. Phase MI Overall Logic Diagram 


***«*A1 ********** 

* LOAD PHASE MJ * 

* AND * 

♦BASE REGISTER. * 
♦OBTAIN SCRATCH * 

* STORAGE * 
***************** 


**»**B1 ********** 

* PHASE LA * 
*-*—*-*-*-*-*-*-* 

* OSE SCI TO * 
♦LOOK FOR TRIPLE* 

* OF INTEREST * 
***************** 


.*• 

Cl *. 

.* IS *. 

.* IT A *. YES 
*. FUNCTION .*.... 
*. TRIPLE .* 

* • • * 

*. .* 

* NO 


LFARIN .*. 

C2 *. 

.* IS *. 

.* CODE TO *. YES 
,..X*. BE PRODUCED .*.... 
BY THIS PHASE 


X 

.*. 

D1 *. 

.* IS *. 

.* IT AN *. YES 
♦.IGNORE TRIPLE.*.... 


. *. 

El *. 

.* IS IT *. 

.* A SPECIAL *. YES 
►. ASSIGNMENT .*.... 
*. TRIPLE .* 

* . , * 

*. .* 

* NO 


.* IT AN *. 
*. ARGUMENT 
*. TRIPLE .* 


**** 

-IGN .*. 

D2 *. 

.* IS *. 

.* IT IN *. 
.X*. AN IN-LINE .* 
♦.FUNCTION .* 

*. . * 

*. .* 

* NO 
. **** 


**** 

LFSPEC .*. 

E2 *. 

.* IS *. 

.* IT IN *. YES 
...X*. AN IN-LINE .*.... 
♦.FUNCTION .* 

* • • * 

*. .* 

* NO 
. **** 


LFARI 1 

♦****C 3 ********** 

* MAKE FNTRY * 

* IN STACK. * 

. . • X* MODIFY SCAN «... 

* PARAMETER * 


$$*********$$*$#$ 


*****03********** 


X 

G1 *. 

.* IS IT *. 

.* AN END OF *. YES 
*. FUNCTION .*.... 
*. TRIPLE .* 

*. . * 

*. .* 

* NO 


.* IS *. 

.* IT IN *. YES 
.X*. AN IN-LINE .*.... 
♦.FUNCTION .* 

*. .* 

*. . * 

* NO 

. **** 


**** 

LFEOF2 .*. 

G2 *. 

.* IS *. 

.* IT END OF *. YES 
...X*. AN IN-LINE .*.... 
♦.FUNCTION .* 


***************** 


***♦*£ 3 ********** 

* MAKE ENTRY * 

* IN STACK TO * 

<* PRODUCE A *. 

* BUY TRIPLE * 

* * 
***************** 


LFDR 

*****F 3 ********** 

* INSERT A * 

* DESCRIPTION * 

...X* OF *. 

* ARGUMENT * 

* INTO STACK * 
***************** 


LFE0F3 

*****G3********** 

* PRODUCE THE * 

* APPROPRIATE * 

. ..X* IN-LINE *. 

* CODE * 


***************** 


* MOVE CODE TO * 
.X* OUTPUT. RESET *. 

♦SCAN PARAMETER * 

* * 
***************** 
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***** 41 ********** 

* LOAD BASE * 

* REGISTER * 

* AND * 

•OBTAIN SCRATCH * 

* STORAGE * 
****** *********** 


* BI *.X. 

• * .X. 

**** . 


*****31********** 

* PHASE LA * 

#-*—*-*—*-*—#-*-# 

* USE SCI TO * 
•LOOK FOR TRIPLE* 

* OF INTEREST * 
***************** 


• *. 

Cl *. 

.* IS *. 

.* IT A *. YES 
. FUNCTION .*.... 
*. TRIPLE .» 


.* CODE TO *. YES 
.X*. BE PRODUCED .*.... 
BY THIS PHASE 


X 

• *. 

D1 *. 

.* IS *. 

.* IT AN *. YES 
•.IGNORE TRIPLE.*.... 


. . • 

*• • * 

* NO 


. *. 

El *. 

.• IS IT *. 

.* A SPECIAL *. YES 
*. ASSIGNMENT .*.... 
*. TRIPLE .* 

• . • * 

*. .* 

* NO 


. *. 

FI *. 

.* IS *. 

.* IT AN *. YES 
. ARGUMENT .*.... 
*. TRIPLE .* 


**** 

-IGN .*. 

02 *. 

.* IS *. 

.* IT IN *. YES 
.X*. AN IN-LINE .*..., 
•.FUNCTION .* 


*•** 

LFSPEC .». 

E2 *. 

.* IS *. 

.* IT IN *. YES 
...X*. AN IN-LINE .*.... 
• .FUNCTION .* 

*. .* 

*. .* 

* NO 

. **** 


*** * 

LFCOM .*. 

F2 *. 

.* IS *. 

.* IT IN *. YES 
...X*. AN IN-LINE .*.... 
•.FUNCTION .* 


• • . 

G1 *. 

.* IS IT *. 

.* AN END OF *. YES 
►. FUNCTION .*.... 
*. TRIPLE .* 


.* IT END OF *. YES 
.X*. AN IN-LINE .*.... 

•.FUNCTION .* 


L FAR 1 1 

♦****C3 ********** 

* MAKE ENTRY * 

* IN STACK. • 

...X* MOOIFY SCAN *. 

* PARAMETER * 


***************** 


*#*** 03 ********** 


**##*#******#*#*• 


***** 33 ********** 

* MAKE ENTRY * 

* IN STACK TO * 

X* PRODUCE A *. 

* BUY TRIPLE • 

* * 
***************** 


LFOR 

***** 33 ********** 

* INSERT A * 

* DESCRIPTION * 

. ..X* OF *. 

* ARGUMENT * 

* INTO STACK * 

***************** 


LFE0F3 

*****G3********** 

* PRODUCE THE * 

* APPROPRIATE * 
...X* IN-LINE *. 

* cone * 


***************** 


* MOVE CODE TO * 

. X* OUTPUT. RESET *. 
♦SCAN PARAMETER * 

♦ * 
***************** 
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X 






. * 
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. * 

FUNCTION * 



. * 

ARGUMENT OR * 



. * 

END OF * 



• * 

PROGRAM * 







X 




. * . 




C2 *. 




* *. 



• , * 

IS IT *. YES 



. * . 

END OF .* 



. fc 

PROGRAM .* 

X 



* » • * 

***** 




*MM * 



* NO 

* A 2 * 




* * 




* 



X 



. FPFNAR 

• * . 




D2 *. 




* *. 



. NO .* 

I S IT *. 




AN ENTRY .* 




NAME .* 




# . . # 








* YES 




X 





FPEPCO 



E2 *. 

.* IS *. 
.* GENERIC 
. SELECTION 
♦.REQUIRED . 


. * . 

F2 *. 

.* IS IT *. 

NO .*A BUILT-IN *. 

FUNCTION .< 


*. 


, * 


FPGAR 

*****Q^********** 

* FORM TABLE * 

* OF FAMILY * 

* MEMBER * 

* DESCRIPTIONS * 

* * 
***************** 


FPARD3 

*****H1********** 

* FORM ENTRY * 

* RELATING TO * 

* ARGUMENT * 

* DESCRIPTION * 

* * 
***************** 


*****jl********** 
* * 

* CHECK FOR * 

* ONE AND ONLY * 

* ONE AGREEMENT * 

* * 
****** *********** 


FPBIF X 

*«***G2* ********* 

* ACCESS * 

* RELEVANT * 

* FUNCTION * 

* TABLE ENTRY * 

* * 
***************** 


*****^2 ********** 

* SELECT * 

* RELEVANT * 

* FAMILY * 

* MEMBER * 

* * 
***************** 


FPF04 X 

***«*j2*«* ******* 

* REPLACE * 

* ORIGINAL * 

* REFERENCE *....X 

* IN TEXT * 

* * 
******** ********* 


IEFERENCE 
IN TEXT 


****•(: J********** 

* GENERATE CODE » 

* TO CONSTRUCT ♦ 
.X* AN ENTRY *. 

* PARAMETER * 

* * 
***************** 


*****£4********** 

* REPLACE * 

* ARGUMENT WITH * 
,X*ENTRY PARAMETER* 

* REFERENCE ♦ 

* * 
***************** 


***************** 
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* LOAD * 

* MODULE AND ♦ . 

* INITIALIZE * 

* * 
***************** 


CFEXIT 

****** 3 ********** 

♦ SCAN FOR * 
♦CALL, FUNCTION,* 
...X* INVOCATION, ♦ X. 


X 

.*. 

83 *. 

.♦ HAS ♦ . 

.* END OF *. YES 

♦ .PROGRAM BEEN .* 

*. FOUNO .* X 

*. .* ***** 
*. .♦ *MP * 

* NO" * Al* 

. * * 


* SCAN ARGUMFNT * 

* LIST FORMING ♦ 

* TA8LE ENTRIFS ♦ 


***************** 


CF8036 X 

*****03********** 

♦ RESTORE ♦ 

♦ POINTER TO ♦ 

♦ START OF ♦ 

♦ INVOCATION ♦ 

♦ * 
******* ********** 


.* IS THIS *. YES 
♦. A BUILT-IN 
♦.FUNCTION .♦ 

♦ . .* 

*. .♦ 

* NO 

**** . 


*♦** . 

CFCFSS X 

*****1=3********** 

♦ SCAN' ARGUMENTS * 

♦ AND GENERATE ♦ 

♦ CODE TO FORM *X... 

♦ ARGUMENT LIST * X 

♦ BLOCK * 

***************** 


.♦IS THIS*. 

.* AN ARRAY *. YES 
.X*. BUILT-IN .*.... 
♦.FUNCTION .♦ 

*. .♦ 


. *. 

FA *. 

.♦ IS *. 

NO .* CALLING *. 
...♦. SEQUENCE .* 
♦. SPECIAL .» 

♦ . . ♦ 


*****E5********** 

♦ GENERATE THE ♦ 
♦ARRAY BUILT-IN ♦ 

<♦ CALLING ♦ 

♦ SEQUENCE ♦ 

♦ ♦ 
*♦*♦♦♦**♦♦*♦♦*♦♦♦ 


CFL06 

*»***H1 ♦♦****♦♦** 

♦ GENERATE CODE * 

♦ TO SET UP * 

♦ RESULT *X. 

♦ DOPE VECTOR * 

♦ ♦ 
***************** 


. * *. 

YES .* IS RESULT ♦. 
....*. A STRING .*X. 
*. .* 


YES .♦ IS THERE ♦. 
...... A NESTED .♦ 

♦.FUNCTION .♦ 

*. .♦ 


.♦IS THI S*. 

FUNC .♦INVOCATION ♦. CALL 

*. A CALL OR A .♦ 

♦.FUNCTION .♦ 

♦ . .* 

♦. .♦ 


CFYO07 X 

*****04********** 

♦SET PARAMETERS ♦ 

♦ TO PRODUCE ♦ 

....♦ THE EXTRA ♦ 

♦ ITEMS * 


***************** 


CFCALP 

»****HA ♦**♦♦♦*♦♦* 

♦ GENERATE ♦ 

♦ CODE TO ♦ 

. . . X* TRANSFER ♦. 

X ♦ CONTROL ♦ 


.♦ HAS ♦. NO 
.X^. INVOCATION .♦... 
♦. NESTED .♦ 


CFLOA3 X 

**«**J2 ********** 

« GENERATE CODE * 
♦TO PLACE RESULT* 
...X* ADDRESS IN *. 
* ARGUMENT LIST * 


♦♦♦♦♦♦♦♦A******** 


***************** 


***************** 
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* LOAD * 

* MODULE * 

* AND * 

* INITIALIZE * 

* * 
***************** 

**** 


* B2 *.X 
* 

**** 
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* SCAN FOR * 

* SUBSCRIPTED * 

* ELEMENT OR * 
♦END OF PROGRAM * 
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***************** 
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C2 


*. 


HAS END 
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* NO 


***** 
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* SAVE * 
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***************** 
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. **** 
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* SUBSCRIPT * 
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. * * 

* OR SUBSCRIPT * 
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* TRIPLE * 






***************** 






X 

SBSTIH 


SBS06 
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F 3 *. 
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, * * . 
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♦ . . . . 
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*. . * 
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*. . * 

*. .* 


***************** 



* NO 
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• 
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X 

X 




SBNEST 

SBTRID .*. 



SBS02B 


*♦***£! ********** 

G2 *. 

G3 *. 


*****G^. ********** 


♦ * 

. ♦ ♦. 

. * * . 


♦ MAKE ENTRY * 


♦ SAVE * 

YES .* IS IT *. 

. * IS * 

YES 

* FOR IT IN * 


♦ ENVIRONMENT *X.... 

A .* 

*. MULTIPLIER 

♦ .... 

...X* CONSTANT * 


* * 

♦.SUBSCRIPT.* 

♦A CONSTANT • ♦ 


♦ POOL * 


* * 

*. - * 

*• . * 


* * 


***************** 

♦• .* 



***************** 



* NO 

* NO 





X 



X 


SBERR 

. *. 

SBSU5 X 


• ♦ • 



H? *. 

*****H 3* ********* 

HA *. 


****H1 ********* 

.* IS *. 

* GENERATE CODE 

♦ 

• ♦ ♦ . 


* terminate * 

NO .* SUBSCRIPT *. 

* TO MULTIPLY 

♦ 

NO .* IS *• 


* COMPILATION 

....*. COUNT .* 

* SUBSCRIPT BY 

*X. . . 



* * 

*. CORRECT .* 

* MULTIPLIER 

♦ 

♦. A OR 8 .* 


*************** 

*. . * 


* 

*• . ♦ 



* • • * 

***************** 

♦ . * * 



* YES 

; 


♦ YES 



X 



SBS029 X 


*****n********** 

J2 *. 



*****J4********** 


♦ ♦ 




* GFNERATE CODE * 


* RESTORE * 

YES .* IS *, 



♦ TO ADD * 


...* ENVIRONMENT *X 

SUBSCRIPT *♦ 

. X 




♦ * 

*. NESTFO .* 



♦ ITSELF TWO OR * 


* * 

* . . * 



* THREE TIMES * 


***************** 

* • • ♦ 



***************** 



* NO 

X 






**** 






* * 

X 





* B2 * 



S8SBRN 



* * 

K 3 *. 


*****«4********** 



**** **** 



♦ GENERATE CODE * 



* * 

NU .« IS * 

YES 

* TO CHECK * 



* E2 *X 

...*. SUBRG 


••.X* RANGE OF ♦.. 

• • 


ACTIVE 

♦ . • ♦ 


♦ SUBSCRIPT * 

♦ * 
***************** 
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♦♦♦ * 2 * ******** ♦ 


♦LOOK FOR TRIPLE* 
* OF INTEREST ♦ 
***************** 


LAST TRIPLE. 


♦ ♦♦♦ ******* ****** 


OUTPUT CALL 


♦ ♦♦♦ 

* * 

* A* * 

* * 
♦ ♦♦♦ 


*****33********** 
* * 

* DELETE * 


***************** 


YES .♦ PROC PRM 


♦ TO IHESAFA *X ♦.OR BEGIN PRM 

* * *. .* 
♦ ♦ ♦• •♦ 
***************** *. .* 


.♦ OPERAND A 
*. BIT STRING 


*♦***& 5 ********** 


♦ MASK TO LABEL ♦ 

♦ * 
***************** 


*-*-*-♦-*- *- *- *- * 
.X* OUTPUT P/C TO * 
♦CONVERT OPERAND* 
* TO BIT STRING ♦ 

***************** 


COMPARE BIT 


***************** 


*****£ X ♦♦♦*****«♦ 

* * 

♦ OUTPUT CALL * 

♦ TO IHEOSEA ♦. 

♦ * 
***************** 


. ♦. 

E2 ♦. 

RETURN 


*****03*********: 

♦ OUTPUT CALL 

* TO IHESAF8 

**************** 


RETURN 

E 3 ♦. 

YES .♦* VALUE *♦. YES 


OUTPUT 

ASSIGNMENT 

TRIPLE 


***************** 


**** 

♦ B3 ♦ 


♦ ASSIGN TRIPLE ♦ 
♦FOR EACH ENTRY. ♦ 

♦ FOLLOW WITH ♦ 

♦ BRANCH TO ... ♦ 
***************** 


*****^5 ********** 

♦GIVE EACH ENTRY^ 
♦POINT A SWITCH ♦ 
X*VALUE AND OUTPT* 
♦CODE TO BRANCH * 
♦ON SWTCH VALUES* 
***************** 


FI ♦. 

EXIT I*X. 


«****q i********** 
* ♦ 

* OUTPUT CALL * 

* TO IHEOSSA * 

* * 
***************** 


GOOB 

*****F3********** 

* OUTPUT P/C TO * 
♦LOAD REG 1 WITH^ 

* ADDRESS OF ♦. 
♦LABEL, AND CALL* 

* IHESAFC ♦ 
***************** 


«****F4* ******** 

* 

♦ DELETE 
X* FOLLOWING 

♦ GOTO TRIPLES 

**************** 


>. GOTO OR GOOB 


GOTO 

*****£<, ********** 

♦ OUTPUT ♦ 

♦ PSEUDOCODE TO ♦ 


*************** 


SYSTEM/SNAP 


***H5********** 
INCLUDE * 
PSEUDO-CODE * 
TO SET SNAP * 


***************** 


*****J1»*»* ****** 

♦OUTPUT PSEUDO- * 

* CODE TO SET * 

* REVERT BIT ON * 
♦IN ONE OR MORF ♦ 

* ON-UNITS ♦ 
***************** 


*****j 3 ********* 

* OUTPUT P/C TO 
♦SET SYSTEM BIT 


*********** 


NA1140 X 

*****j 4* ********* 

♦ OUTPUT P/C TO ♦ 
♦PUT ADDRESS OF ♦ 

♦ PROCEDURE IN *. 


***************** 


****** 3 ********** 

* OUTPUT P/C TO ♦ 

♦ INSERT COOE ♦ 
.X* BYTE IN PRV ♦ 


***************** 
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#****A1* ********* 

* LA * 

*-*-*_*_*_*-.*..*-* 

..X* USE SCI TO *X 
♦LOOK FOR TRIPLE* 

* OF INTEREST * 
***************** 


.* *. NO 

*• EOP 2 •*.•. 

*. •* 

*. .* 

*• •* 
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*. .* 
*. • * 
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* CONVERT * 

* OPERAND TO * 

* INTEGER * 

* * 


***♦* 02 ********** 
* * 

* GENERATE CALL * 
.* TO IHEOSIA * 

♦LIBRARY MODULE * 

* * 


• * 

.X*. DISPLAY 
». . 
*. .* 
*. .* 

* YES 


DSPY.CHAR X 

#****C3********** 

* CONVERT * 

* OPERAND TO * 

* CHARACTER * 

* STRING * 

* * 
***************** 


.* REPLY 
. OPTION 
*. PRESENT 
*. . * 
*, .* 

* NO 


DSPY3 

*****04********** 

* CHECK THAT * 

* OPERAND IS * 

...X* CHARACTER * 

* VARIABLE * 


***************** 


***************** 


*****F 3 ********** 
* * 

* GENERATE CALL * 
.* TO IHEDSPA * 

♦LIBRARY MODULE * 

* * 
***************** 
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***************** 


* SCAN UNTIL * 

.X* RECORD I/O *. 

* VERB FOUNO * 

* * 
***************** 


*****A 3 ********** 

* SET PROPER * 

* OPERATION * 
<« CODE IN *. 

* REQUEST-CODE * 

* * 
***************** 


SCRHOP 

*****A4*** ******* 

* SETUP * 

* OPTION * 

...X* TRIPLES TO * 

* BE SCANNED * 

* FOR * 

***************** 


* * BRANCH ON * 

* X* APPROPRIATE *. 

* X * OPTION * 

* . * * 

* ***************** 


DYNMPL 

»****B1 ********** 

* GENERATE * 

♦ CODE TO PUT * 
..<(* IN WORKSPACE. * 
. * PARM LIST * 


**»**B2 ********** 
* * 
* PUT IN * 

..X* STATIC PARM * 
. * LIST * 


.* *. 

PARM .* PARM *. 

*. OR CONSTANT .*X. 

*. ARG .* 


PRGEND 

*****65********** 


***************** 


.* DYNAMIC ♦. 
..X*. STORAGE 
. *. CLASS .* 

* *. . * 

. *. . * 

**** ♦ 

* * X 

* D1 * .X 


*****03********** 

STUT2 LV* 

*-*-*-*-*-*-*-*-* 

* DETERMINE *X. 

* MODE OF * 

* REFERENCE * 
***************** 


DICT *. 

REF OR .*X. 
TFMP .* 


***♦*£! ********** 

* CONVERT TO * 

* CHAR STRING * 

* AND DETERMINE *X. 

* MODE OF REF * 

* ( ZSTUT1 ) * 

***************** 


****«F1 ********** 

* REQUEST * 

» CONVERSION * 

* TO INTEGER *X 

* THRU DICT * 

* ENTRY * 

***************** 


NO .* CHAR *. 

*. STRING • *X • 

X *. .* 


CONS .* CONSTANT *. 

*. OR VARIABLF .*X. 

*. .* 

*. . * 

*. .* 

* VAR 


INTEGER .*X. 


CONS .* CONSTANT *. 

*. OR VARIABLE .*X. 

*. .* 

*. , * 


DICT .* DICT 

.....*. REF OR 

*. TEMP 


*****H1 ********** 

* CREATE RDV * 

* IN WORKSPACE * 

* FROM DOPE * 

* VECTOR * 

* * 
***************** 


*****G2********** 

* * 

* GENERATE * 

* ASSIGNMENT *X. 

* TRIPLE * 

* * 
***<£#$***$< C 


***♦ *H2 * ******** * 

* CREATE RDV * 

* IN WORKSPACE * 

* FROM INFO * 

* IN RDV ENTRY * 


SC3 

*****j i ********** 

* LA* 

*_*_*_*_*_*_*-*-* 
...» CANCEL * 

. * OPTION TRIPLE * 

. * IN SCAN * 

X ***************** 

**** X 


SELL 

*»***K1 ********** 

* IF SELL * 

* CHAIN EXISTS * 

* GENERATE *X 

* SELL TRIPLES * 

* * 
***** ************ 


*• •* 

*. .* 

* YES 

* **** 

. * * 

.•X* D1 * 

X * * 

. **** 

REFRDV 

#***# H 3 ********** 

* * 

* DETERMINE * 

* RDV *X 

* REFERENCE * 

* * 
***************** 


**** # 

CALLIB 

*****j 3********** 

* GENERATE * 

* LIBRARY CALL * 

* TO RDV IN *X . 

* WORKSPACE * 

* * 
***************** 


****3*G4* ********* 

* PUT ENTRY * 

* ON SELL * 

* CHAIN *X 

* SELL SW ON * 

* * 
***************** 


NO . * *. 

CONTROLLED .*X. 
* . . * 

*. • * 

*• • * 

* YES 


* * * * * k 2 * * * * * * * * * * 

* * 

* IF WORKSPACE # 

,* USED MODIFY *X. 

* MOVE INSTP * 

* * 
***************** 


CALLIB 

*****K3********** 

* CREATE * 

* RECORD I/O * 
....* LIBRARY *X 

* CALL * 


***************** 


*****K*********** 

* PUT REQUEST * 

* CODE AND * 
.* PARM LIST IN *X 

* DICTIONARY * 

* * 
***************** 


***************** 


KYTOPT 

***** 95 ********** 

* SET * 

* KEY TO * 
REQUEST *» 

* CODE * 


***************** 


KEYOPT 

*****55********** 

* SET * 

* KEY/KEYFROM * 

REQUEST *> 

* CODE * 


***************** 


IGNOPT 

*****F5********** 

* SET * 

* IGNORF * 

,...* REQUEST *> 

* CODE * 


***************** 


***************** 


SFT 

into/from 

req. cnnF 


***************** 
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* SCAN TO * 
..X* NEXT TRIPLE ♦ X. 
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* * 
***************** 


.* *. NO 

£0 P2 

*. . * 


•* *. NO 

. X*. OPEN 


.X*. PUT .* 


* CHECK * 

* VALIDITY * 

* OF OPTIONS * 

* * 
***** ************ 


*****02 ********** 

* BUILD UP * 

* PARAMETER * 

* LIST FROM * 

* OPTIONS * 

* * 
♦♦***♦ $*. ******** 


CAL IB X 

* GENERATE CALL * 

* TO LIBRARY * 

* MOOULE * 

* IHEOCLA * 

* * 
***************** 


* CHECK * 

* VALIDITY * 

* OF OPTIONS * 

* * 
***************** 


***** 03 ********** 

* BUILD UP * 

* PARAMETER * 

* LIST FROM * 

* OPTIONS * 

* * 
* ****** * ****** * * * 


CALIB X 

♦****£ 3 ********** 

* GENERATE CALL *■ 

* TO LIBRARY * 

* MOOULE * 

* IHEOCLB * 

* * 
***************** 


GETOO 

C4 *. 

.♦ IS ♦ . 

.♦NEXT TRIPLE*. YES 
..X*. DATA, EDIT, .*.... 
*. LIST .* 


*****Q4********** 


***************** 


STORAD X 

***♦*£4 ********** 

* INSERT * 

* OPTION IN * 

...* PARAMETER * 

* LIST * 

* ♦ 
***************** 


GET 20 

****«£ 5 * ********* 

* GENERATE * 

♦INITIALIZATION * 

..•X* CALL TO * 

* LIBRARY * 

* * 
***************** 


MVTRSP X 

*****05********** 

♦ MOVE DATA * 

♦SPECIFICATIONS ♦ 

♦ TO OUTPUT ♦ 

♦ UNCHANGED ♦ 

♦ ♦ 
♦**♦♦*♦♦♦♦♦♦♦*♦♦♦ 


GET85 X 

*****E5********** 

♦ GENERATE ♦ 

♦ TERMINATION * 

♦ CALL TO » 

♦ LIBRARY ♦ 

♦ * 
♦♦*♦*♦♦♦*♦♦*♦♦**♦ 
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NTOOOO X 

****«Al ********** 

* INITIALIZE * 

* PHASE AND * 

*■ GET 4K AREA * 

* OF SCRATCH * 

* STORAGE * 
***************** 


X 

3001 .*. 

B1 *. 

.* HAS *. 

.* SCAN BEEN *. NO 
*. I NOICATEO BY .*... 
*. PHASE .* 

*. NM .* 


NT1700 X 

♦****B2 ********** 

* MOVE TEXT * 

* FOR USE BY * 
...X* PHASE NU INTO *. 

* SCRATCH * 

* STORAGE * 

***************** 


***»*C1 ********** 

* SCAN FOR * 

* TRIPLES OF * 

* INTEREST TO * 

* THIS PHASE * 

* * 
***************** 


X 

• *. 

D1 *. 

• * *, 

.* COMMA *. YES 
*.IN EDIT LIST .*.... 
*. .* 

*. .* 

*. .* 

* NO 


X 

.*. 

£1 *. 

. * *. 

.* FORMAT ». YES 
*. ITEM .*.... 

*. .* 

*. . * 

*. .* 

* NO 


FI *. 

.* END *. 

.* OF *. YES 

*. FORMAT .*.... 
*. LIST .* 

*. . * 

*. .* 

* NO 


NTU021 

***** 02 ********** 

* DETERMINE * 
*QEQ OF VARIABLE* 

. ..X*ANO MAKE ENTRY *. . . 

* IN DATA * 

* TYPES LIST * 

***************** 


* MAKE ENTRY 

,X* IN FORMAT 

* ITEM LIST 


***************** 


NT0023 X 

***** 64 ********** 
♦ASSOCIATE ITEMS* 

* IN THE * 

*DAT A AND FORMAT* 

* TYPE LISTS * 

* * 
***************** 


NT0011 X 

*****C 4 ********** 

* SET INCLUDE * 

* BITS AND LIB * 
♦ROUTINE REQUEST* 

* BITS * 

* * 
**************** *; 


*♦♦**04* ********* 

* SAVE TYPE * 

* CODES OF ANY * 
♦DATA ITEM WHICH* 

* MAY INVOKE * 
♦REMOTE FORMATS * 
***************** 


NT0C11 X 

*****65********** 

* SAVE FORMAT * 

* ITEM LIST FOR * 

* USE AT PROC * 

* OR BEGIN * 

* * 
***************** 


. *. 

G1 *. 

. * *. 

.* PROC' OR *. YES 
*. BEGIN,’ .*.... 
*. .* 

*. . * 

*. .* 

* NO 


* R SMOTE FORMAT * 
X* ITEMS WITH *. 

* ALL POSSIBLE * 

* DATA ITEMS * 
***************** 


*****53********** 

* MARK REQUIRED * 

* LIB ROUTINES * 
X* AND SET ALL *. 

* NECESSARY * 

* INCLUDE BITS * 
***************** 


.* END OF *. YES 
*. PROGRAM .*.... 


NT0017 

*****H2********** 

* MAKE ENTRIES * 

* FOR THOSE * 
...X* LIBRARY *. 

♦ROUTINES MARKED* 

* AS NECESSARY * 
***$**£$*#$##*$#>}£ 


3 ********** 

* PLACE DICT * 

* REFS OF THESE * 
GENTRIES IN- THE *. 

* LIB ROUTINE * 

* TABLE * 

ft**##**********## 
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*****A}********** 

* INITIALIZE * 

* PHASE. * 

* LOAD A 

* MODULE IEMNV * 


**** 

OBI 10 X 

*****81********** 
a LA a 

*-*_*-*_*_*_*_*_* 

* USE SCI TO * 
♦LOOK FOR TRIPLE* 

♦ OF INTEREST * 
****** *********** 


* SCAN FOR * 

* COMMA AND * 

* DATA* TRIPLES * 

* * 
***************** 


♦ . .♦ 
*. • * 

A NO 


0BUT24 

***♦* 33 ********** 

A GENERATE ARG A 
* LIST ENTRY, A 
...XA SYMBOL TABLE A 
» ENTRY. SET A 
A INCLUDE BIT A 
***************** 


0B011 X 

*****C3**A******* 

* IF LIST FULL A 
A OR INSIDE A 
a REPLICATION * 
A GENERATE A 
A LIBRARY CALL * 
***************** 


* SCAN FOR * 
A COMMA AND * 

* LIST* TRIPLES * 

* * 
**** *#£$$£#$$$$£$ 


OBUT25 

***** 35 * ********* 

* GENERATE CALL * 
YES *TU LIBRARY AND * 

.♦ X*SET LIST.DIRECT* 

* * I/O BIT IN * 

♦INCLUDE MATRIX ♦ 
***************** 


. ♦ *** 

♦ . YES ♦ * 

. .X* A4 * 


* **** * * 
X ♦♦♦* 

. ♦. 0BD20 

D2 *• *****Q3 ********** 

.* *. * GENERATE CALL A 

.* ANY LIST A. NO A TO LIBRARY A 

A. ITEMS FOUND .A XA INDICATING NO A 

A. .A A DATA LIST A 

A . . * * A 

A. ,* ***************** 


0BD12 X 

*«***E2*A* ******* 

A GENERATE LIB A 

« CALL FOR ANY A 

A OUTSTANDING A.... 

A ARGUMENT LIST a 

* * ' 

A***AAAA AAAAAAAAA ) 


.A. 08700 

=1 A. AA***F2**AAAAAAAA 

a. A GENERATE CODE A 

A. YES * TO LOAD THE * 

EDIT .A XAADDRESS OF THE ». 

.A A FORMAT CODE * 

. .A * I NTO REGISTER 8A 

A. .* ***************** 

A NO 


.A A. YES 

A. PRE-FORMAT .A.... 
A. MARKER .A 


PREFMT ,0BC61 

#****G2A*aa**aaaa 
AGENERATE BRANCHA 
a ROUND REMOTE * 
..XA FORMAT A 

ASTATEMENT WHICHA 
* FOLLOWS A 

A AAAAAAAAA A* A**** 


HI ♦ . 

# * *. **** 
.♦ ♦. YES * * 

FORMAT •♦.... X* F5 ♦ 
♦ . .* ♦ ♦ 
*. .* **** 

♦ • .♦ 

♦ NO 


*. ,* 
♦ . .♦ 

♦ NO 


*****J2********** 

♦RELEASE MODULES* 

* IEMNUf IEMNV. * 
. X*RELEASE SCRATCH* 

* STORAGE OF * 

* IEMNT * 

***************** 


***** F3********** 

* MARK ALL DATA * 
♦DIRECTED INPUT * 
♦CONVERSIONS IN *.. 
♦INCLUDE MATRIX ♦ 

* * 
***************** 


*****F3********** 

* SCAN FOR A 

A COMMA AND A 

.XA EDIT* TRIPLES AX. 


************ ***** 


0B730 

*****GA********** 

A GENERATE » 

A LA 1, ITEM * 
...X* LA 2, DED A 

A BALR 7,8 * 


***************** 


A. .A 

*. .* 

A YES 


0B840 X 

AAAAAJ 3 A A* A AAA AAA 
AGENERATE BRANCHA 
* ROUND FORMAT A 
...A LIST WHICH A 
. * FOLLOWS. SCAN A 

. ATO FORMAT LIST * 
X ***************** 
• *** 


QBG30 X 

**»**F 5* ********* 
* SCAN FOR A 
A F3RMAT ITEMS * 
..XA AND GENERATE * 
A LIBRARY CALLS * 
A A 

***************** 


NO .A FORMAT' A. 
,..A. OR FORMAT .A 
a. LIST' .A 
*. .» 

*. .* 

A YES 


0BC5C X 

****«H5* ********* 
AGENERATE BRANCHA 
A TO START OF A 
♦LIST OR RETURN A 
A ( IF REMOTE) * 
AGENERATE LABEL * 
***************** 
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Chart OB. Phase OB Overall Logic Diagram 






81 *. 

. * *. 

.* END *. 

► . OF 

*. TEXT .* 

*. . * 

*. .* 

* NO 


*****52********** 


.* COMPILER *. YES 
>. PSEUDO- .*.... 
♦.VARIABLE .* 

♦• . ♦ 


D1 *. 

.♦ ♦. 

.* COMPILER ♦. YES 
♦. ASSIGN ...... 

♦ . ? .♦ 

*. . * 


***************** 


*****5 3 ********** 

* PLACE * 

* PSEUDO- ♦ 

<* VARIABLE * 

* PARAMETERS * 

* IN STACK * 
***************** 


ST6 .♦. 

D2 *. * 

.* IS *. * 

.♦ ASSIGNED ♦. YES * 

. .. X*. VALUE FIXED .* X* 

*. BINARY .♦ X ♦ 

*. ? .* . * 


*****03********** 

* EXAMINE ♦ 

* PSV OPERAND ♦ 

♦ AT TOP OF *. 

♦ STACK ♦ 


.♦ MTF ♦. YES 
*. FUNCTION 
*. .♦ 

*. .♦ 


G1 ♦. 

.♦ ADV ♦. 

.* OR SDV ♦. YES 
♦. FUNCTION ...... 

♦ . ? .♦ 

♦ . .♦ 

♦ . .♦ 

♦ NO 


*****£ 2 ********** 

* PLACE ASSIGN * 

* TO FIXED * 

* BINARY IN *. 

* TEXT * 

* * 
***************** 


MTFR .♦. 

F2 *. 

.♦ IS ♦. 

.♦ FIRST *. YES 
. . .X*. OPERAND ...... 

*. CTL OR .♦ 
♦.TEMP .♦ 


***************** 


♦ . .* 
*. • ♦ 

* NO 


*****D5« ********* 

♦ REPLACE * 

» OPERAND BY ♦ 

<* WORKSPACE ♦ 

♦ REF ♦ 

♦ * 
***************** 


FRSTOP 

*** * #F 3 ********** 
* REPLACE * 


*****£*****«***** 

* CALCULATE * 

* DOPE VECTOR * 

* OFFSET FROM *. 

* PARAMETERS * 

* * 
***************** 


* A 1 *X.. 

* * .X. 

**** 


***************** 


*****F4********** 

* REPLACE * 

* MTF 8 Y * 

.X* PSEUDO-CODE * 

* M VC * 

* * 
***************** 


AT7 

*»***E5* ********* 

* GENERATE * 

* CODE TO * 

...X* SET RESULT * 

* IN DOPE * 

* VECTOR * 

***************** 


***»*F 5* ********* 


***************** 


.* BUYS *. YES 
*. OR FIRST .*.... 
*. BUY .* 

*. .* 

*. .* 

* NO 


.* Jl# * V *. 

YES .* SELL *. 
X..*. CUR 2ND .< 
*. BUY .* 

*. .* 

*. .* 

* NO 


ST10 .*. 

K 1 *. 

.* *. 

NO .* HAS *. YES 

...*. BUYS BEEN .*.... 
*. REMOVED .* 

*. .* 

*. .* 


ADVR 

*****52********** 

* CALCULATE * 

* DOPE VECTOR * 
...X* OFFSET FROM *. 

* PARAMETERS * 


***************** 


ST7.ST8 .*. 

H2 *. 

.* IS *. 

.* IT A *. NO 
...X*. DOPE VECTOR .*... 
•.ONLY TEMP.* 

*. . * 

*. . * 

* YES 


*****63********** 

* GENERATE * 

* PSEUDO-CODE * 
X* TO LOAD *. 

* REGISTER FROM * 

* DOPE VECTOR * 
***************** 


(5 .*. 

H3 *. 

.* *. 

.* SCALAR *. YES 
.X*. < 256 .*.... 

*. BYTES .* 

*. .* 

*. .* 

* NO 
. **** 


*»***HA* ********* 

* ALIGN * 

* WORKSPACE * 

<* TO *. 

* REQUIRED * 

* BOUNDARY * 

***************** 


****«H 5* ********* 

* PLACE * 

* WORKSPACE * 

<* OFFSET * 

* IN OFFSET 1 * 

* SLOT * 

***************** 


BY19 X 

*****j 2* ********* 

* ALIGN * 

* WORKSPACE * 

* TO *. 

* A-BYTE BOUND * 

* * 
***************** 


*****J3********** 

* PLACE * 

* WORKSPACE * 

X* OFFSET *. 

* IN OFFSET 2 * 

* SLOT * 

***************** 


**»**J 4* ********* 

* * 

* BUMP * 

.X* WORKSPACE *. 

* COUNT * 

* * 
***************** 


•****j 5* ********* 
* * 

* REMOVE * 

.X* STATEMENT * 

* FROM TEXT * 

* * 
***************** 
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Chart OE. Phase OE Overall Logic Diagram 


****-*/\X ********** 


ASSOO 

**#**C 2 ********** 
♦OBTAIN OPERANO * 
*DESCR I PTNS FROM* 
...X* TMPD TRIPLES, *. 

* AND CHECK FOR * 

* VALIDITY * 

* <c * *** * ********* * 


ALLOCATE OR 
BUY STORAGE 
FOR SECOND 
OPERAND 


ASFLGO 

****«D4* ********* 

* GENERATE CODE * 


*****E4*#$ ******* 


***♦*^4.*** ******* 


.* OPERANDS *. YES 


.* STRINGS *. YES 
*. OR NUMERIC .*.... 
*. FIELDS .* 


.* ARE ♦. 
. OPERANDS 
*. LABELS .* 


****»H4* ********* 

* GENERATE CODE * 


.* BUY, *. * 

.* SELL, *. YES * 

*. ALLOCATE, .**.. X* 

*. FREE .* * 
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Chart OG. Phase OG Overall Logic Diagram 


*«***B1********** 


TRIPLE TO * 
. .X* PSEUDO-CODE. * 
♦MOVE TO OUTPUT ♦ 
♦ ♦ 
***************** 


***** 02 ********** 


♦ INSTRUCTION * 

♦ CORRESPONDING ♦ 

♦ TO TRIPLE * 
***************** 


***************** 


SET UP MARKER 

♦ SO THAT ♦ 

♦ WORKSPACE 3 *. 

♦IS EXAMINED BY ♦ 

♦ SN TRIPLES * 

***************** 


♦.PRIMEO OR NOT .♦• 


.♦FORMAT ♦. 

YES .♦LIST PRIMED*. 
....*. OR NOT .* 
*. PRIMED .* 


COUNTS FOR 
.X* CURRENT BLOCK *. 

* UNLESS MAIN ♦ 

* PROC * 

***************** 


**#**04 ********** 


***************** 


COUNTS FOR 


*************** 


SO THAT 
.X+WORKSPACE 1 IS * 

♦ EXAMINED BY * 

♦ SN TRIPLES ♦ 
***************** 


*****£ }*♦♦* ****** 


♦ WORKSPACE 1 ♦ 

***************** 


EOP OR E0P2 


*****E 5* ********* 

♦ SET MARKER * 


. X^ANOTHER EOP IS * 
♦ TREATED AS + 


***************** 


**** .* 

♦ * YES .♦ CL 

♦ Bl ♦X....*. TRIPLE 


YES .* SN2 


rk 


***************** 

x 

**** 

♦ A2 ♦ 

* * 

**** 


**#*#H2******«*:** 

♦COMPILER ERROR ♦ 

* # 
***************** 


.* END ♦. 
.* OF * 

*. PSEUDO-CODE 


♦OF PSEUDO-CODE 

♦ GET NEXT 

♦ PSEUDO-CODE 

♦ INSTRUCTION 
**************** 


JUMP TRIPLE. 


♦ INSTRUCTION ♦ 
***************** 


CODE IGNORE 


*****Q5# ********* 

♦ OUTPUT ♦ 
♦PSEUDO-CODE OF ♦ 
.♦ RIGHT LFNGTH. ♦ 
♦GET NEXT P SFUDO* 
♦-CODE I NSTRCTN * 
***************** 


.♦ PSEUDO- ♦ 
. . X + .C3DE CONVERT 
♦. MACRO .* 


-CODE TO CALL *X. 
♦LIBRARY CUNVER-* 

♦ SION ROUTINE ♦ 
***************** 


PSEUDO-COOF 


**************** 


********* 


♦ IN ZINCL FOR ♦ 

♦ CONVERSION ♦ 

♦ MODULES ♦ 

♦ * 
***************** 


Section 3: 


Charts and Routine Directories 
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Chart OS. Phase OS Overall Logic Diagram 


*«***A2 ********** 

* GET SCRATCH * 


* SET SCAN = 0 * 

******4*****#**$* 


A3 *. 

. * * 

SCAN = 4 


44444B2 ********** 


»»***#**»*** 


44* **B4 ********** 


4 ** 44 * 44 444 * 4444 * 


44 4 4 4B 5* ********* 

* 4 

* CHAR TO * 
.* PICTURED CHAR * 

* CONVERSION * 

4*444*44444*4***4 


♦ J3 * 

* * 
4*44 


4 4 44 4 C 14*444*4*4* 


INTO LOCATION *X. 


444444*4444444444 


4444401444444**44 


444444444444*4444 


4444444444444444* 


.♦STATIC * 
INITIAL 
CONSTANT 
.AND SCAN 
*• s 4 •* 


YES .*DOUBLE WORD*. 


** 4*C 3* ******** 

* * 

* CONVRT * 

4 * 

444444444444444 


44444C4********** 

4 4 

* CHAR STRING * 

* TO CHAR *X 

* CONVERSION * 

4 * 

4444444*4*4444444 

I *444 
. * * 
..X* J3 * 

* * 
4444 


D4 


*. 


*. AND SCAN 


.X*. BIT STRING 


SIMILAR *. YES 


YES . *SINGLE WORD*. 
....*. ALIGNED AND .* 
*. SCAN .* 

*. = 2 .* 


• *TARGET *. 

* UNAL IGNED * 
AND SCAN 
*. =3 .* 


44 44 *G2 ****4**444 

* CONVRT * 

4- 4- 4- 4- *-*-*-4-4 

* INTO TEXT * 


44444444444444444 


* 4« 44*4 

SOURCE *. YES * * 

STRING •*«••• X* K 4 * 

,4 4 4 

4. .4 4444 


SOURCE 
IN INTERNAL 
FORM 


.*. 

G3 *. 

* 4. 

TARGET *. YES 


*444 
4 4 

.X* J3 * 

4 4 

4444 


44444444444444444 


444 4*F 54444444 444 


44444444444444444 


4444465444444444’ 


TARGET 
. CHARACTI 
4. STRING 


CHARACTER .* X* 


* CONVERSION 

* 

4*44*44444444*4* 


* TEXT BLOCK * 

4*4*444444444*44* 


* CHAR STRING * 

* TO ARITH * 

* CONVERSION * 

* 4 
44444444**444*444 

4444 
4 4 

* J3 *.X 

4 * 

4*44 


44444H4444* 4**444 
4 4 

* ARITH TO * 

4 CHAR * 

* CONVERSION * 

4 4 

4444444**44*4444* 


**44J 34***44*44 
4 4 

* RETURN * 

4 4 

444444444444444 


4**44 J444444444* 


* CONVERSION 

4 

4444444444444444; 


44 .* SOURCE 

* K4 4....X4. CHARACTER 

* * *. STRING . 


ARITHMETIC 
TO ARITH 
CONVERSION 
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Table LA. Phase LA Pseudo-Code Scan 


1 

| Statement or Operation Type 

i . 

t — 

| Main Processing 
| Routine 

± 

T 

1 

1 

J. 

Subroutines Used 

- 1 

1 

j Scans transfer vector 

l _ . . . 

T 

ISCTV 

..j. 



T 

|MV4A, 

1 

SCINIT 

1 

i 

| Searches for triple of interest to 
j user 

isci, 

I 

-j- 

SC2 # 

SC 3 

T 

| SCUT1 
1 

x 

, SCUT4, SC200 

1 

1 

1 

| Moves input pointer to next triple 

1 

L 

i SC4 , 
j SC7 
.x 

SC5, 

SC6# 

1 

| SC200 

1 

X 


— 

1 

r t 

| Moves input pointer over JMP triple |SC8 f 
jand pseudo- code | 

L ± 

SC9, 

T 

SC10A| SC51, 

1 

MV20 

1 

i 

r 

| Scans triple transfer vector 

L 

T 

| SACTN 
.i_ _ 


j SC20 

x_ 

to SC80 

1 

j 
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Table LA.1. Phase LA Routine/Subroutine Directory 


r t- 

| Routine/Subroutine J 

f +- 


Function 


MV1 

MV 2 
MV3 

MV3A 
MV 4 
MV4A 
SACTN 
SCINIT 
SCTV 
SCUT1 
SCUT 4 

SCI 

SC2 

SC3 

SC4 

SC5 

SC6 

SC7 

SC8 


SC9 

SC10 

SC10A 

SC20 to SC80 
SC200 


Moves input text, with symbolic start in PARI and absolute address 
of first byte not to be moved in PAR2. 

Moves input text with symbolic start in PARI; moves count in PAR2. 

Moves generated pseudo-code with absolute start in PARI, and count 
of contiguous text in PAR2. 

Moves generated triples, with parameters as for MV3. 

Moves input text, with absolute start in PARI. 

Moves input text, where preceding output text may be pseudo-code. 
Scans triple transfer vector. 

Initializes input and output text blocks. 

Scans transfer vector. 

Scans triple. 

Adds epilogue to JMP triple by inserting total count in triple and 
moving two register status bytes to the end of the pseudo-code 
block. 

Searches for triple of interest to user as indicated by entries in a 
TRT table. Moves scanned text to output string. 

Moves current triple to output string, increments input pointer and 
searches for triple of interest to user. 

Moves input pointer to next triple, then scans for triple of inter- 
est to user. 

Moves input pointer to next triple, marking input block as WANTED. 

Moves input pointer to next triple, marking input text block as 

FREE . 

Moves input pointer to next triple, with TRT for new triple. 

Moves input pointer to next triple, with TRT for new triple. 

Moves input pointer over JMP triple, and then the triple with the 
following pseudo- code is moved to the output text, the register 
status bytes are updated, and the input pointer is updated to point 
at the first triple following the pseudo-code. The input text block 
is marked as 'wanted.' 

The input text block is marked as FREE, otherwise as for SC8 . 

Converts symbolic input text pointer in PARI to absolute, and if the 
text block referenced is no longer the current one, resets the SCAN 
input text parameters. 

As SC8, but the pseudo-code is not moved, and the register status 
bytes are not updated. 

SCAN text housekeeping routines. 

Bumps input text pointer over current triple, calls in next chained 
input block if end of block reached. 
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Table LB. Phase LB Pseudo-Code Initial 


Statement or Operation Type 

— T - T - 

| Main Processing! 

| Routine | Subroutines 

_L J. 

Used 

Scans text for PROCEDURE, BEGIN, 
and ALLOCATE triples 

JSCAN 

1 

jsCINIT, SCI, SC3, SC5 
ISFSCAN, ENDRTN, MAIN, 

j 

(all in LA), 
SCAUTO 

Scans automatic chain 

1 

| SCAUTO 

-L 

| MAIN 

1 ... .. 


Processes INITIAL attribute dic- 
tionary items 

1 

| MAIN 

1 

_ X 

t 

| CNSTWK 

1 

X 



Table LB1. Phase LB Routine/Subroutine Directory 


r T* 

| Routine/Subroutine | 


Function 


ARRENT (LC) 

| Declares INITIAL attribute 

i 

for dynamic 

arrays. 

CNSTWK 

i 

| Creates initialization triples. 

1 


ENDRTN 

j 

| Releases phase and scratch 

i 

storage. 


MAIN 

i 

(Processes INITIAL attribute dictionary 

i 

items . 

SCAN 

i 

| Scans text for PROCEDURE, 

| 

BEGIN, and ALLOCATE 

SCAUTO 

1 

j Scans AUTOMATIC chain. 

i 



SFSCAN 

1 

| Scans through second file 

statements. 
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Table LD. Phase LD Pseudo-Code Initial 

r r t 

| | Main Processing! 

| Statement or Operation Type | Routine | Subroutines Used 

j. 1 1 

j Scans the STATIC chain for any | STATIC j ENDRTN, ARRENT, CNSTWK, 

j variable with the INITIAL attribute! j LOVNAS, STRADD 

L X X 


1 

I 

I 

A 

I 

I 


Table LD1. Phase LD Routine/Subroutine Directory 


r r- 

| Routine/Subroutine | 

h 


Function 


ARRENT 

CNSTWK 

CNVERT 

ENDRTN 

GAA1 

GAC3 

LOVNAS 

STATIC 

STRADD 

ST0006 

ST0088 

ST9999 


Processes the initial value string for arrays. 

Creates constant entries for initial values. 

Converts decimal integer constants used as replication factors to 
fixed binary. 

Releases the phase and scratch storage. 

Scans array initial value string. 

Makes slot for converted constant for arrays. 

Calculates the equivalent length in bits or bytes of a constant for 
variable or adjustable length strings. 

Scans the STATIC chain. 

Addresses elements of structures. 

Locates initial value list. 

Resets initial value entry. 

Makes slot for converted constant for scalars. 
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Table LG. Phase LG Pseudo-Code DO Expansion 


Statement or Operation Type 


Main Processing 
Routine 


Subroutines Used 


Scans text 


LG0002 


SCI (LA) 


For iterative DO triples, pushes 
down stack and examines control 
variable 


LG0011 


PSHDWN, SC5 (LA), CVSCAN 


Pushes down DO stack 


LG0013 


PSHDWN 


For iterative DO' and DO* triples, 
pushes up stack and removes top 
entry 


LG0012 


EXPEVL, POPUP 


For CV triples, reverts to normal 
scan 


LG0015 


EXPEVL 


For TO -and TO' triples, examines 
argument and assigns to temporary, 
if necessary 


LG0017 


EXPEVL, TESTOP 


For BY and BY* triples, examines 
expression and determines signs of 
constants; assigns variables to 
temporary 


LG0019 


EXPEVL, TESTOP 


For WHILE and WHILE' triples, marks 
loop as iterative; generates test 
triples 


LG 0021 


CODE3 


DO EQUALS triples, assigns expres- 
sion as a temporary; generates code 
to control loop if end of specifi- 
cation 


LG0024 


CODE2, TESTOP 


Sets up control variable text in DO 
stack 


CVSCAN 


CVCOPY, PSTYPO, PSTYP1 


Generates loop control code 


CODE2 


CVCODE, DICENT, COMPAR, SWITCHP, 
LMV3AU, LMV3A5, PSTYPO, PSTYP1 


| Tests expression result type and | TESTOP 
| assigns to temorary if not constant j 

j. 1 

| Moves text from DO stack to output | CVCODE 


DICCHN, LMV3A5 


LMV3AU 
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Table LG1. Phase LG Routine/Subroutine Directory 


r T - 

| Routine/Subroutine | 

h 


Function 


C0DE2 

C0DE3 

COMPAR 

CVCODE 

CVCOPY 

CVSCAN 

DICCHN 

DICENT 

EXPEVL (LH) 

LG0000 

LG0002 

LG0010 

LG0011 

LG0012 

LG0013 

LG0015 

LG0017 

LG0019 

LG0021 

LG0022 

LG0024 

LMV3AU 

LMV3A5 

POPUP 

PSHDWN 

PSTYP0/PSTYP1 

SWITCHP 

TESTOP 


Generates loop control code. 

Generates loop control code for WHILE. 

Generates triples to test upper limit control expression. 

Moves text from DO stack to output. 

Moves input text to DO stack. 

Sets up control variable text in DO block. 

Chains dictionary entries. 

Makes a dictionary entry. 

Analyzes expression to determine result type. 

Initializes phase. 

Scans text. 

When EOP triple encountered, releases scratch storage and passes 
control to next phase. 

For iterative DO triples pushes down stack and examines control 
variable. 

For iterative DO' and DO' triples pushes up stack and removes top 
entry. 

Pushes down DO stack. 

For CV triples reverts to normal scan. 

For TO and TO' triples, examines argument and assigns to temporary 
if necessary. 

For BY and BY* triples, examines expression and determines sign of 
constants. Assigns variables to temporary. 

For WHILE and WHILE' triples, marks loop as iterative and generates 
text triples. 

When WHILE' triple encounter ed» branches to generate comparison 
triples. 

For DO EQUALS triples, assigns expression to a temporary: generates 
code to control loop if at the end of specification. 

Moves triples to output. 

Moves one triple to output. 

Removes item from DO stack. 

Pushes down DO stack and initializes new stack entry. 

Test pseudo- variable argument type. 

Changes DO stack text markers. 

Tests expression result type and assigns to temporary if not con- 
stant. 
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Table LS, 
r 


Phase LS Pseudo-Code Expression Evaluation 


T T 

Main Processing 
Routine 


Statement or Operation Type 


Subroutines Used 


Scans text and branches to 
processing routines; marks phase LW 
and releases control to next phase 


LBO 


ARITH, FUNCT, LZZ1, MOVEPC, 
SCAN (LA) , STRING* SUBSPT 




Calculates result type and 
generates pseudo-code for + , -, *, 
/, prefix + , prefix -, compare 
operators, and ADD, MULTIPLY, and 
DIVIDE functions 


ARITH, ARITH2 


ADDSTK, ASSIGN, CONVT, DICDES, 
EXPONT, GENRPD, GETADX, GETFR, 
GETGR, MOVEPC, RELSTK, SETCPX, 
STRING, SWOP 


Calculates result type for string 
operators 


STRING 


LZZ1 , MOVEPC, STALRG 


Inserts symbolic register in sub- 
script triple and stacks result 


SUBSPT 


ADDSTK, DICDES 


-H 


Inserts workspace description in 
TMPD triples after function, and 
stacks result. Stacks arguments 
for ADD, MULTIPLY, and DIVIDE func- 
tions. Adds pseudo-variable mark- 
ers to stack 


FUNCT 


ADDSTK, ARITH, DICDES, GETFR, 
GETGR, SCAN 


Calculates results types and 
generates pseudo-code for ** opera- 
tor. Generates calling sequences 
to library subroutines for complex 
arithmetic 


EXPONT 


ADDSTK, ARITH2, CONVT, GETADX 
MOVEPC, STALRG, SWOP 


Calculates target type and 
generates assignment triple for 
conversion; sets dictionary entries 
for constants 


CONVT 


ADDSTK, ASSIGN, GETFR, MOVEPC, 
STALRG 


+- 


Interchanges operands; optionally 
loads first operand 


SWOP 


GETADX, GETFR, GETGR 


4 


Obtains free floating or fixed 
arithmetic register; stores it, if 
necessary 


GETFR, GETGR 


GETADX, STALRG 


Adds items to, and releases items 
from intermediate result stack 


ADDSTK, RELSTK 


None 


Generates calling sequence for 
complex * and / operators, super- 
vises complex arithmetic 


SETCPX 


EXPONT, GETADX 


Inserts TMPD triples after zero 
operands 


LZZ1 


RELSTK, SCAN 
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Table LSI. Phase LS Routine/Subroutine Directory 


j Routine/Subroutine j 

K +- 


Function 


ADDSTK (LT) 
ARITH/ARITH2 (LT) 

ASSIGN 

CONST 

CONVT 

DICDES 

EOP2 

EXPONT (LU) 

FCTDES 

FUNCT 

FXC1 (LT) 

GENRPD 
GETADX (LT) 
GETFR/GETGR (LT) 

LBO 

LBE21 (LT) 

LBFL1 (LT) 

LZZ1 

MOVEPC 

PSI 

RELSTK (LT) 
SETCPX (LU) 

STALRG 

STRING 

SUBSPT 

SWOP 


Adds items to intermediate result stack. 

Calculate result type and generate code for +„ *, /, prefix + „ 

prefix -, compare operators, and ADD, MULTIPLY, and DIVIDE func- 
tions . 

Generates an assignment triple and TMPD in the output text. 

Sets up dictionary entry for constant operand. 

Calculates target type and generates assignment triple for conver- 
sion. 

Constructs operand description from dictionary entry. 

Marks phases wanted/ not wanted and releases control. 

Calculates result type and generates pseudo-code for ** operator, 
and generates calling sequence to Library subroutines for complex 
arithmetic. 

Inserts workspace description in TMPD triples after function, and 
stacks result. 

Inserts workspace description in TMPD triples after function, and 
stacks result. Stacks arguments for ADD, MULTIPLY, and DIVIDE func- 
tions. Adds pseudo-variable markers to stack. 

Generates fixed binary pseudo-code. 

Generates pseudo- code for packed decimal operations. 

Sets up address of pseudo-code instruction. 

Obtain free floating or fixed arithmetic register; store it, if 
necessary. 

Scans text and branches to processing routines. 

Tests for operand conversions and constants. 

Generates floating pseudo-code. 

Inserts TMPD triples after zero operands . 

Moves pseudo-code to output text. 

Adds pseudo-variable marker to stack. 

Releases items from intermediate result stack. 

Generates calling sequence for complex * and / operators; supervises 
complex arithmetic. 

Generates pseudo-code to store all arithmetic registers currently in 
use. 

Calculates result types for string operators. 

Inserts symbolic register in subscript triple and puts result in 
stack. 

Interchanges operands and optionally loads first operand. 
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Table LV. Phase LV Pseudo-Code String Utilities 

r 


T T 

| Main Processing 
Routine 


Statement or Operation Type { 


Subroutines Used 


Initializes module; releases con- J STRUTO 
trol to next module 1 


None 


Converts data item to string; cal- j STRUT1 
culates string length | 


SCAN (LA), STRUT2 


Produces a string dope vector des- j STRUT2 
cription from a standard string j 
description j 


None 


Table LVl. Phase LV Routine/Subroutine Directory 

r T 

I Routine/Subroutine 1 


Function 


h 


LSUT17 

LSUT22 

LSUT26 

LSUT27 

STUTO 

STRUT1 

STRUT2 

ZSTUT1 

ZSTUT2 


Tests whether string length is greater than 256, and if necessary 
generates fixed length calling sequence. 

Tests whether string dope vector result is required. 

Generates any assignment and TMPD triples. 

Sets up assignment and TMPD triples. 

Initializes module; releases control to next module. 

Converts data item to string type; calculates string length. 

Produces string dope vector description from standard string des- 
cription. 

Transfer vector to STRUT1. 

Transfer vector to STRUT2. 
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Table LW. Phase LW Pseudo-code String Handling 


Statement or Operation Type 


Main Processing 
Routine 


Subroutines Used 


Initializes phase, scans text and 
branches to processing routines; 
releases control to next phase 


BEGIN 


FUNPT, SCAN (LA), STROP, 
SUBSPT, TMPDT 


Processes TMPD triples. Arithmetic 
type TMPDs are ignored. String 
TMPDs are replaced by the top item 
from the string stack 


TMPDT 


GETMPD, MOVSEL, RELSTK, SCAN (LA) 
SETMPD 


Processes function and function 
argument triples. Arithmetic type 
functions are ignored. Dictionary 
entries are created for the results 
of string type functions. A 
library calling sequence is gener- 
ated for the BOOL function using 
the mechanism for packed bit opera- 
tions. The result descriptions are 
added to the string stack 


ADDSTK, DICDES, GETADS, GETMPD, 
MOVEPC, RELSTK, SCAN (LA), SETMPD, 
STROP 


Processes subscript triples. 
Arithmetic type subscripts are 
ignored. A symbolic register or 
workspace offset is added to string 
type subscript triples and the 
string description is added to the 
string stack 


SUBSPT 


ADDSTK, DICDES, SBGNOR, SCAN (LA) 


Processes string operations CONCAT, 
AND, OR, NOT and comparisons with 
string type operands. For simple 
cases, in-line pseudo-code is gen- 
erated; otherwise calling sequences 
to the library are generated. The 
results are added to the string 
stack. 


STROP 


ADDSTK, DICDES, GETADS, GETADX, 
GETMPD, MOVEPC, MOVSEL, RELSTK, 
SCAN, STRUT (LV) 
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Table LW1. Phase LW Routine/Subroutine Directory 


r t* 

| Routine/Subroutine | 


Function 


h 




ADDSTK 

BEGIN 

DICDES (LX) 

FUNPT 

FUNT 

GETADS/GETADX 

GETMPD 

LB 

LIB1 

LIL2 

LIL3 

LIL6 

LIL8 

Lll 

MOVE PC 
MOVSEL 
RELSTK 
SBGNOR 
SETMPD 
STROP 

SUBSPT 

TMPDT 

T5 


(LX) 


Adds strings to the intermediate string result stack. 

Main controlling routine for phase. 

Constructs operand description from dictionary entry. 

Processes result returned by functions. 

Processes funtion and function argument triples. 

Construct address part of pseudo-code instruction. 

Constructs operand description from TMPD triples. 

Terminates phase at end of program. 

Generates Library calls for string operations. 

Generates pseudo-code for NOT operation. 

Generates pseudo- code for concatenation operation. 

Generates pseudo-code for comparison operation. 

Generates pseudo- code for AND/OR operation. 

Generates pseudo-code to convert to string. 

Moves pseudo-code from buffer to output text. 

Moves SELL triples to output text. 

Removes strings from the intermediate string result stack. 

Gets next symbolic register. 

Constructs TMPD triples from description. 

Processes string operations CONCAT, AND, OR, NOT, and comparisons 
with string type operands. 

Processes subscript triples. 

Processes TMPD triples. 

Sets flags for triple types. 
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Table MB. Phase MB Pseudo-code Pseudo-Variables 
r T . 


Statement or Operation Type 


Main Processing 
Routine 


Subroutines Used 


Scans source text 


MB0001 

MB0011 


SCI (LA.) 


PS I operator; starts new entry in 
stack for pseudo-variable 


SWITCH 


PSI ' operator; completes stack 
entry and generates code for data 
list items 


MB0012 


SWITCH, TARGET 


Assign completes stack and rescans 
group of assignments, putting tar- 
get descriptions out in correct 
sequence; generates code for 
pseudo-variables in stack 


MB0013 


DRFTMP, MMV3A5, MVTMPD, OUTMPD, 
TARGET 


Multiple assign; places only target 
descriptors in stack 


MB0014 


MVTMPD 


Constructs pseudo-variable stack 
entry 


MB0020 


MVTMPD 


Places temporary descriptor in 
output 


OUTMPD 


MMV3A5 


Gets temporary workspace for 
pseudo-variable, if necessary 


TARGET 


GETWKS 
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Table MB1. Phase MB Routine/Subroutine Directory 


r t- 

| Routine/Subroutine J 

h 


Function 


DRFTMP 

GETWKS 

MB0001 

MB0004 

MB0010 

MB0011 

MB0012 

MB0013 

MB0014 

MB0020 

MB1310 

MB1311 

MB1316 

MB1318 

MB1320 

MMV3A5 

MVTMPD 

OUTMPD 

SWITCH 

TARGET 


Makes temporary descriptor from a dictionary reference. 

Obtains workspace to accommodate a variable of given type. 

Scans source text. 

Multi-switch for triples of interest. 

On reaching end-of-text marker, releases remaining block, and 
releases control of phase. 

PSI operator; starts new entry in stack for pseudo-variable. 

PS I * operator; completes stack entry and generates code for data 
list items. 

ASSIGN; completes stack and rescan group of assignments, putting 
target descriptions out in correct sequence, generates code for 
pseudo-variable in stack. 

Multiple ASSIGN; places any target descriptors in stack. 
Constructs pseudo-variable stack entry. 

Resets input pointer to start of sequence of ASSIGNS. 

Rescans ASSIGNS and associated TMPDS from stack in reverse order. 
Tests for end of stack. 

Tests for pseudo- varaible TMPD. 

Generates code for pseudo- variable. 

Moves one triple to output. 

Places temporary descriptor in stack. 

Places temporary descriptor in output string. 

Changes scanning table. 

Obtains temporary workspace for pseudo- variable, if necessary. 
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Table MG. Phase MG Pseudo-Code In-Line Functions 1 


T T 

Main Processing 
Routine 


Statement or Operation Type 


Subroutines Used 


Scans text 


PHASE LA (SCAN) 


None 

None 


-H 


Builds up function stack 


LFARIN 


Builds up argument stack 


LFCOM 


4 


None 
MV3 (LA) 


Move generated code to output 
block. 


LFMOVE 


Generates in-line code 


LFE0F2 


ABBFLL, 

ALL0C2, 

CEILS, 

CNASTR, 

CONJGL, 

FLOORD,, 

IMAGFD, 

REALFD, 

TRUNCB, 

UNSPEC, 


ABBFLS, 

CEILB, 

CMPLXB, 

CNVINT, 

CONJGS, 

FLOORL, 

IMAGL, 

REALL, 

TRUNCD, 

UTTEMP 


ABSFB, ABSFD, 
CEILD, CEILL, 
CMPLXD, CMPLXL, 
CONJGB, CONJGD, 
ERRFUN, FLOORB, 
FLOORS, IMAGB, 

I MAGS, REALB, 
REALS, SBGTNR, 
TRUNCL, TRUNCS, 


Table MG1 . Phase MG Routine/Subroutine Directory 


r t* 

| Routine/ Subroutine | 


Function 


t + 


ABBFLL 

| Generates 
j argument. 

I 

in-line 

code 

for 

ABBFLS 

1 

| Generates 
j argument. 

I 

in-line 

code 

for 

ABSFB 

1 

| Generates 

in-line 

code 

for 

ABSFD 

I 

| Generates 

i 

in-line 

code 

for 

ALLOC 2 

i 

| Generates 

t 

in-line 

code 

for 

CEILB (MH) 

1 

| Generates 
j ment. 

i 

in-line 

code 

for 

CEILD (MH) 

1 

| Generates 
j argument. 

1 

in-line 

code 

for 

CEILL (MH) 

1 

| Generates 
| argument . 

i 

in-line 

code 

for 

CEILS (MH) 

i 

| Generates in-line 
j point argument. 

i 

code 

for 

CMPLXB 

i 

| Generates 
j argument. 

1 

in-line 

code 

for 

CMPLXD 

1 

| Generates 
j ment. 

i 

in-line 

code 

for 

CMPLXL 

1 

J Generates 
| argument. 

1 

in-line 

code 

for 

CNASTR 

1 

| Constructs 

j 

assignment trip 

CNVINT 

1 

(Converts a 

decimal integer 


L -L j 
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Table MG1. Phase MG Routine/Subroutine Directory (cont'd) 


r t* 

| Routine/Subroutine | 

I- +- 


Function 


CONJGB 

CONJGD 

CONJGL 

CONJGS 

ERRFUN 
FLOORB (MH) 

FLOORD (MH) 

FLOORL (MH) 

FLOORS (MH) 

IMAGB 

IMAGFD 

IMAGL 

IMAGS 

LFARIN 

LFARI1 

LFCOM 

LFDR 

LFEOF2 

LFEOF3 

lfign 

LFMOVE 

LFSPEC 

REALB 


Generates code for the CONJG function with fixed binary arguments. 

Generates in-line code for the CONJG function with fixed decimal 
arguments 

Generates in-line code for the CONJG function with long floating- 
point arguments. 

Generates in-line code for the CONJG function with short floating- 
point arguments. 

Aborts if Phase IM discovers an error in a function. 

Generates in-line code for the FLOOR function with fixed binary 
argument. 

Generates in-line code for the FLOOR function with fixed decimal 
argument. 

Generates in-line code for the FLOOR function with long floating- 
point argument. 

Generates in-line code for the FLOOR function with short floating- 
point argument. 

Generates in-line code for IMAG function with fixed binary argument. 

Generates in-line code for IMAG function with fixed decimal 
argument. 

Generates in-line code for IMAG function with long floating-point 
argument. 

Generates in-line code for IMAG function with short floating-point 
argument. 

Builds up function stack. 

Continues scan for in-line functions. 

Builds up argument stack. 

Unpacks dictionary reference of argument when argument triple found. 
[Calls subroutines to generate in-line code. 

[Depending on start of argument list, branches to produce in-line 
code. 

Removes triple from text if inside an in-line function. 

Moves generated code to output block. 

Branches if IGNORE triple or not an in-line function. 

Generates in-line code for REAL function with fixed binary argument. 
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Table MG1. Phase MG Routine/Subroutine Directory (cont'd) 

Function 


r T" 

| Routine/Subroutine 1 




REALFD 


REALL 


REALS 


SBGTNR 


TRUNCB 

(MH) 

TRUNCD 

<MH) 

TRUNC L 

(MH) 

TRUNCS 

(MH) 

UNSPEC 

(MH) 

UTTEMP 



4 1 

Generate in-line code for REAL function with fixed decimal argument. 

Generate in-line code for REAL function with long floating-point 
argument. 

Generates in-line code for REAL function with short floating-point 
argument. 

Get next available symbolic register. 

Generates in-line code for the function TRUNC with fixed binary 
argument. 

Generates in-line code for the TRUNC function with fixed decimal 
argument. 

Generates in-line code for the TRUNC function with long floating- 
point arguments. 

Generates in-line code for the TRUNC function with short floating- 
point argument. 

Generates in-line code for the UNSPEC function. 

Gets a required amount of temporary work space. 
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Table MI. Phase MI Pseudo-Code In-Line Functions 2 


Statement or Operation Type 

J Main Processing | 
j Routine j 

j. ± 

1 

Subroutines Used | 

j 

Scans text 


! PHASE LA (SCAN) 
j. 

T 

| None 

_L 


i 

1 

i 

Builds up function stack 


j LFARIN 

_L __ 

T 

| None 
+ 


1 

1 

■ 

Builds up argument stack 


T 

| LFCOM 

-L 

T 

| None 
± 


1 

1 

_ i 

Move generated code to output 

block j LFMOVE 
± 

j MV3 (LA) 

j. 

— — — — 

1 

. . j 

Generates in-line code 


| LFEOF2 

1 

1 

X- 

j MAXB, 
j MINL, 
j ROUNDB 
X 

MAXD, MAXL, MAXS, 
MINS,, MODB, MODD, 

, ROUNDD, ROUNDL, 

MINB, MIND, j 
MODL, MODS, j 
ROUNDS j 


r T' 

| Routine/Subroutine 1 


r 

j LFARIN 


— T 

| LFCOM 



| LFE0F2 



| LFMOVE 



| MAXB/MINB 

(MJ) 


| MAXD/MIND 

(MJ) 


| MAXL/MINL 

(MJ) 


| MAXS/MINS 

(MJ) 


| MODB (MJ) 



| MODD (MJ) 



| MODL (MJ) 



| MODS (MJ) 



| ROUNDB 



| ROUNDD 



| ROUNDL 



| ROUNDS 



l _ _ _ 


X 


Table Mil. Phase MI Routine/Subroutine Directory 

Function 

Builds up function stack. 

(Builds up argument stack. 

(Calls subroutines to generate in-line code. 

Moves generated code to output block. 

[Generate code for MAX/ MIN function with fixed binary arguments. 

Generate in-line code for MAX/MI N function with fixed decimal 
arguments . 

Generate in-line code for MAX/MIN function with long floating-point 
arguments . 

Generate in-line code for MAX/MIN function with short floating-point j 
arguments. 

Generates in-line code for MOD function with fixed binary arguments. 

Generates in-line code for MOD function with fixed decimal argu- 
ments. 

Generates in-line code for MOD function with long floating-point 
arguments . 

Generates in-line code for MOD function with short floating-point 
arguments . 

Generate in-line code for ROUND function with fixed binary argument. 

Generates in-line code for ROUND function with fixed decimal argu- 
ment. 

Generate in-line code for ROUND function with long floating-point 
arguments. 

Generate in-line code for ROUND function with short floating-point 
arguments. 

j 


Section 3 : Charts and Routine Directories 211 





Table MK. Phase MK Pseudo-Code In-Line Functions 3 


Statement or Operation Type 

J Main Processing] 

| Routine j Subroutines Used 

__L _L 

Scans text 

T 

j PHASE LA (SCAN) 

T 

| None 
-1- 

Builds up function stack 

i ■ 

| LFARIN 

.J. 

T 

| None 

. j. 

Builds up argument stack 

t 

J LFCOM 

T 

| None 

j _ . 

T 

Move generated code to output block j LFMOVE 

_L 

| MV3 (LA) 

4- 

Generates in-line code 

T 

| LFE0F2 

1 

T 

| DIM, HBOUND, LBOUND, LENGT, SIGNFB, 
|SIGNFD r SIGNL, SIGNS 


Table MK1. Phase MK Routine/Subroutine Directory 


r t* 

| Routine/Subroutine | 


Function 


DIM 

j Generates 

i 

code 

for 

DIM function. 

HBOUND 

1 

| Generates 

1 

code 

for 

HBOUND function. 

LBOUND 

1 

| Generates 

i 

code 

for 

LBOUND function. 

LENGT 

| Generates 

i 

code 

for 

LENGTH function. 

LFARIN 

1 

| Builds up 

1 

function 

stack. 

LFCOM 

1 

| Builds up 

1 

argument 

stack. 

LFE0F2 

i 

| Calls subroutines to generate in-line 

LFMOVE 

1 

| Moves generated code to output block. 

i 

SIGNFB 

i 

| Generates 

i 

code 

for 

SIGN function with 

SIGNFD 

j Generates 

i 

code 

for 

SIGN function with 

SIGNL 

1 

| Generates 

code 

for 

SIGN function with 

SIGNS 

1 

| Generates 

code 

for 

SIGN function with 
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Table ML. Phase ML Pseudo-Code Calls and Functions 


Statement or Operation Type 

T T _ 

1 Main Processing! 

J Routine 1 

X X 

Subroutines Used 

i 

Scans text 

j PHASE LA (SCAN) 

| 

T 

j None 
l 


^ 

i 

Identifies argument of procedure 
invocation 

T 

| FPFNAR 

1 

.j- 

1 

| None 

1 


1 

Selects generic built-in function 

| FPBIF 

X 

j FPARD1 

1 - - 




_ j 

Selects PL/I generic entry name 

l — — 

| FPGAR 

T 

| FPARD2, 

FPARD3, GNSECO 

1 


L 


X. 


X 




Table MLl. Phase ML Routine/Subroutine Directory 


r T - 

| Routine/Subroutinr | 

K +- 

FPA01 
FPARD1 


Function 


FPARD2 

FPARD3 

FPBIF 

FPEPCO 

FPFNAR 

FPGAR 

GNFM2 

GNSECO 


Scans for next argument. 

Obtains parameter descriptions relating to built-in function argu- 
ments. 

Obtains successive parameter descriptions relating to the entry 
description of a PL/I generic procedure. 

Obtains and stacks full parameter description of a PL/I generic 
procedure. 

Selects generic built-in functions. 

Constructs an entry parameter. 

Identifies arguments of procedure invocations. 

Selects PL/I generic entry name. 

[Replaces generic reference testing for uniqueness. 

Makes entry in stack of parameter descriptions. 


Table MM. Phase MM Pseudo-Code Calls and Functions 


Statement or Operation Type 

|Main Processing! 

j Routine j Subroutines Used 

X X 

Scans text 

T 

| PHASE LA (SCAN) 

T 

J None 

1 . . .. 



Scans list, counts arguments and 

| CFCALL 

T 

| CFARID, CFFBIR* 

CFFDVS, 

CFMVTR, 

identifies storage class 

1 

| CFMVCD 

i 



Rescans list and generates calling 

j CFCFSS 

j CFARHA, CFCALP, 

CFBIFH,, 

CFMLBR* 

sequence for Library routine 

1 

_x _ _ 

j CFMVCD, CFNEST, 

X _ _ _ _ . 

UTTMPW, 

CFALFl 
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Table MM1. Phase MM Routine/Subroutine Directory 

r t 

1 Routine/Subroutine j 

h 


Function 


BEGIN 

CFALF1 (MO) 
CFARHA 
C FARID (MO) 
CFBIFH 

CFB04 

CFB021 

CFB036 

CFCALL 

CFCALP 

CFC03C 

CFCFSS 

CFEXIT 

CFFBIR 

CFFDVS (MN) 

CFL06 
CFL043 
CFMLBR (MN) 

CFMVCD 
CFMVTR 
CFNEST 
CFY007 
UTTMPW (MN) 


Initializes phase. 

Places address of invoked routine at the head of its argument list. 
Generates calling sequence. 

Counts arguments and sets STATIC/AUTO flag. 

Further built-in function identification with relevant parameter 
setting. 

Restores previous environment. 

Tests nature of function found. 

Restores pointer to start of invocation. 

Scans lists, counts arguments, identifies storage class. 

Completes calling sequence and, if necessary, generates code to 
initialize dope vector. 

Tests for nested function. 

Rescans list and generates calling sequence for Library routine. 
Transfer vector after first scan. 

Identifies built-in functions, sets parameters for calling sequence 
generation. 

Reserves output text area for generation of code to initialize dope 
vector when a function returns a string. 

Generates code to set up result dope vector. 

Generates code to place result address in argument list. 

Generates code to move a skeleton parameter list which is greater 
than 256 bytes. 

Generates pseudo-code into the output text block. 

Generates triple into the output text block. 

Handles a nested situation 

Sets parameters to produce special calling sequences. 

Allocates one word of workspace. 
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Table MP. Phase MP Pseudo-Code BUY 

Reorder 



r - 

1 

| Statement or Operation Type 

j ... . - 

T T 

|Main Processing! 
j Routine j 

_x X 

Subroutines Used 

r 

|Main scan routine for phase 

l . 

j SCAN 
| 

| MPSTRT 

. j 


r — ■ — 

| Rearranges BUY and SELL statements 

j MPSTRT 
-X _ 

j ZDRFAB, 
,x_ _ . 

ZTXTRF,, ZUERR 


Table MP1. Phase MP Routine/Subroutine Directory 


r t* 

| Routine/Subroutine | 


Function 


j ADDSEL 

jAdds SELL 

i 

dictionary reference to SELL list if not already there. j 

i 

IMPEND 

i 

| Returns to compiler control at end of phase. 

1 

i 

1 

1 

| MPSTRT 

i i 

|Main controlling routine for rearranging BUY and SELL statements | 

j involved in obtaining VDAs for adjustable length string temporaries.! 

i i 

| MP3 

i 

j Processes 

i 

EOP triple. Releases control of phase. 

i 

| MP4 

I 

| Processes 

i 

BUYS triple. 


| MP4A 

1 

| Processes 

i 

BUYX triple. 


j MP8 

i 

| continues 
j ture. 

i 

text scan if not string or arithmetic data. 

or not struc- j 

| MP23 

1 

J Continues 

i 

scan of text. 


| MP26 

1 

| Processes 

BUYS triple. 


| MP27 

I 

| Processes 

1 

BUY ASSIGN triple. 


| MP28 

1 

| Processes 

i 

BUY triple. 


| MP29 

1 

| Processes 

i 

SUBSCRIPT triple. 


| MP30 

1 

| Processes 

i 

ASSIGN triple. 


j MP31 

1 

| Accesses 

i 

top stack entry. 


| MP86 

i 

| Tests triple for BUyX, and processes. 


JMP87 

i 

J Scans for 
■ 

BUYS, BUY, and SELL triples. 


| MP88 2 

1 

| Processes 

i 

SELL triple. 


j MP8 87 

1 

j Generates 

1 

SELL triples in OUTPUT from SELL list. 


| SCAN 

i 

| General scan routine. 

1 


J ZDRFAB 

I 

| Converts 

1 

dictionary reference to absolute address. 


| ZTXTRF 

i 

| Changes absolute address to a text reference, 
i 


| ZUERR 

J 

J Makes error message entries. 
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Table MS. Phase MS Pseudo-Code Subscripts 


Statement or 

Operation Type 

T - - 

| Main Processing 
| Routine 

i 

"T ” 

\ 

I 

| 

Subroutines Used 

Scans text 


T 

| SBSCAN 

j 

T 

| None 


Calculates element offset 

| SBSTIH 

1 

1 

... | ... . . 

1 

j SBASS, 
j SBNEST, 

| UTTEMP 

1 

SBCOBI , SBGNOR, SBMVCD, 
SBSUBP, SBSUDV, SBXOP, 

Checks subscript 

range 

1 

| SBSBRN 

X 

1 

| None 

X 



r T - 

j Routine/Subroutine | 
j. 


Table MSI. Phase MS Routine/Subroutine Directory 

Function 

Updates scan pointer over an assignment. 

Converts subscript to binary integer. 

Puts error message into dictionary. 

Allocates an odd symbolic register. 

Generates pseudo- code and moves it into output text block. 

Handles nested subscript situation. 

Checks subscript range. 

Branches to LA for scan. 

Calculates element offset. 

Saves array name. 

Handles end of subscript list. 

Generates code to set up the dope vector of an array of adjustable 
strings. 

Generates code to multiply subscript by multiplier. 

Compiles code to convert to fixed binary. 

Checks for occurrence of subscript. 

Generates code to multiply subscript by 4 or 8. 

Scans for comma, subscript prime, or subscript triple. 

Handles special index feature. 

Controlling scan of text. 

Allocates workspace. 


SBASS 


SBCOBI 

(MT) 

SBERR 

(MT) 

SBGNOR 

(MT) 

SBMVCD 

(MT) 

SBNEST 

(MT) 

SBSBRN 

(MT) 

SBSCAN 


SBSTIH 


SBSUBI 


SBSUBP 

(MT) 

SBSUDV 


SBS05 


SBS06 


SBS002 


SBS029 


SBTRID 


SBXOP 

(MT) 

SCAN 


UTTEMP 

(MT) 
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Table NA. Phase NA Pseudo-Code Branches, ON, Returns 


Statement or Operation Type 

|Main Processing! 

1 Routine j 

x x 

Subroutines 

Used 

Initializes text block 

| NAINIT 


T 

jsCINIT 

.X 

(LA) 


Scans text for next triple of 
interest to user 

| NASC1, 

| NASC3 

NASC2, 

T 

|SC1, SC2, SC3 (all in 

1 

-X 

LA) 

Processes STOP statements 

-j. 

j STOP 

4 


NAUTl 

X 



Processes EXIT statements 

T 

| EXIT 
| 


| NAUTl 
j 



Processes IF statements 

j IF 

4 


j NAUTD, 

NAUTl 6, NAUT21, 

ZSTUTl 

Processes ON statements 

1 

| ON 

4- 


1 

| NAUTD, 



NAUT6, NAUTl 6, 

SC5 (LA) 

Produces Library call at end of 
each PROCEDURE or BEGIN block in 
source text 

| PROCP, 

1 

1 

.j. 

BEGINP 

| NAUTl 

1 

1 

-j. 



Processes RETURN statements 

| RETURN 

4_ 


j NAUTl 

-4- 



Processes function RETURN state- 
ments for one data type 

1 

| NA3002 

1 

-j. 


I 

| NAUTB, 

1 

NAUTCA, NAUTl, 

NAUTl 2 

Processes function RETURN state- 
ments for more than one data type 

j NA3013 

1 

1 

4- 


| NAUTA, 

| NAUTl, 
j NAUTl 2 

NAUTB, NAUTCA, NAUTD, NAUTF, 
NAUT7, NAUT8, NAUT9, NAUT11, 

Processes GO TO statements 

1 

1 GOTO 

4- 


1 NAUTD 

_4 



Processes GOOB statements 

T 

| GOOB 

| . _ 


T 

| NAUT5 , 

4 _ . . 

NAUTD, NAUTl 6, 

SC5 ( LA) 

Processes SIGNAL statements 

| SIGNAL 

I 

4 


1 

| NAUTD, 

j NAUTl 0, 

,| . 

NAUT6, NAUTl 6, 
NAUT21 

NAUT8, 

Processes REVERT statements 

T 

1 REVERT 

J. 


T 

| NAUTD, 
.X 

SC 5 (LA) 



Table NA1. Phase NA Routine/Subroutine Directory 


r t- 

| Routine/Subroutine J 

V +- 


Function 


| EXIT 

| Processes 

i 

EXIT statements. 


| GOOB 

1 

| Processes 

i 

GOOB statements. 


| GOTO 

1 

| Processes 

i 

GO TO statements. 


1 IF 

1 

| Processes 

1 

IF Statements. 


| NAINIT 

i 

[Initializes text blocks. 

1 


| NASC1/NASC2/NASC3 

I 

| Scan text 

t 

for next triple of interest to user. 


| nauta 

i 

| Generates pseudo-code to test switch value at RETURN (function 

(value) statement for more than one data type. 

1 


| NAUTB 

i 

| Generates 

i 

assignment triple to RETURN function result. 


| NAUTCA 

1 

| Generates 

1 

assignment triple set up by NAUTB. 


| NAUTD 

1 

| Generates 
| 

indicated pseudo-code. 


| NAUTF 

1 

| Generates 

pseudo-code to branch to EQU value. 
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Table NA1. Phase NA Routine/Subroutine Directory Ccont'd) 

Function 


r T . 

J Routine/Subroutine | 




NAUT1 

NAUT2 

NAUT5 

NAUT6 

NAUT7 

NAUT8 

NAUT9 

NAUTll 

NAUT12 

NAUT16 

NAUT17 

NAUT18 

NAUT21 

NA1100 

NA1140 

NA3002 

NA3005 

NA3013 

NA8003 

NA8010 

NA8012 

ON 

PROCP/BEGINP 

RETURN 

REVERT 

SIGNAL 

STOP 

ZSTUT1 


Generates call to indicated library routine. 

Moves indicated pseudo-code, deletes current triple, continues text 
scan. 

Makes dictionary entry for indicated library routine. 

Updates current symbolic register value. 

On entry, register BR points at an entry label dictionary entry. On 
normal exit from the routine, register BR points at the next label 
dictionary entry. Abnormal exit indicates that there are no further 
labels on the current PROCEDURE or ENTRY statement. 

Bump EQU* value for branch pseudo-code item. 

Bump return switch value to be used for current entry label. 

For current entry label, generate appropriate EQU* pseudo-code item. 

Converts current label dictionary reference to an absolute address. 

Converts dictionary reference of triple second operand to absolute 
address, loads address into register BR. 

Makes dictionary entry for maximum negative number. 

Makes indicated dictionary entry. 

Generates pseudo-code to compare source bit string, making library 
comparison routine dictionary entry, if necessary. 

Tests for SNAP. 

Using NAUTD, generates code for ON-units. 

Processes function RETURN statements for one data type. 

Outputs assignment triple. 

Processes function RETURN statements for more than one data type. 
Generates pseudo- code for branch and mask, labels. 

Converts ID to bit- string. 

Outputs pseudo-code. Compares bit-string to zero. 

Processes ON statements. 

Produce Library call at end of each procedure in source text. 
Processes RETURN statements. 

Processes REVERT statements. 

Processes SIGNAL statements. 

Processes STOP statements. 

String utility in Phase LV to provide a dope vector for a specified 
string. 
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Table NG. Phase NG Pseudo-Code Operating System Services 

r T T 1 

| | Main Processing) | 


j Statement or Operation Type 

L 

j Routine 

j Subroutines Used 

r 

| Processes 

i 

DELAY triples 

| DLAY 

. j 

ICALIB, INTEG, SCAN (LA) 

1 _ _ 

1 

| Processes 

1 

L 

DISPLAY triples 

jDSPY 

1 

X _ 

(CALIB, CHAR, ENDLST, 
j SCAN (LA), STORAD 


Table NG1. Phase NG Routine/Subroutine Directory 


r t* 

| Routine/Subroutine | 


Function 


j CALIB 

| Generates part of calling sequence and makes dictionary 

1 Library routine. 

1 

entry for 


j CHAR 

1 

| Converts a given argument to character string. 

I 



|DLAY 

1 

(Processes DELAY triples. 

i 



|DSPY 

1 

(Processes DISPLAY triples. 

i 



| DSPY3 

1 

(Tests that operand is character variable. 

1 



| DSPY4 

1 

| Makes dictionary entry for parameter list* 

1 



| DSPY10 

1 

(Scans for REPLY option. 

i 



j ENDLST 

1 

(Completes parameter list and makes dictionary entry for 

1 

it. 


| INTEG 

I 

(Converts a given argument to an integer. 

1 



| NGO 

1 

(Scans to next triple. 

t 



| STORAD 

1 

| Stores an address in a parameter list. 
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Table NJ. Phase NJ Pseudo-Code RECORD I/O 


T T 

Main Processing 
Routine 


Statement or Operation Type 


Subroutines Used 


Initialize Phase NJ by calling in 
block NK and initializing SCAN 
utility 


STRTNJ 


ZLOADW (AA), SCINIT (LA), SCI (LA) 


Initializes switches and flags to 
indicate start of new statement. 
Determines RECORD-oriented I/O verb 
and goes to appropriate routine 


NUSTAT 


TXTEST 


Establishes READ code as 
REQUEST_CODE and parameter list 
size, accordingly 


READ 


SCRHOP 


Indicates compiler error since 
deferred feature was not caught by 
earlier phase 


DEFER 


None 


Establishes REWRITE code as 
REQUEST CODE 


REWRIT 


SCRHOP 


Establishes WRITE code as 
REQUEST_CODE 


WRITE 


SCRHOP 


Establishes DELETE code as 
REQUEST CODE 


DELETE 


SCRHOP 


Establishes UNLOCK code as 
REQUEST_CODE (not implemented in 
second version) 


UNLOCK 


None 


Gets next triple of interest, 
converts to internal code and sel- 
ects the appropriate routine to 
process it 


SCNOPT 


SC3 (LA), TXTEST, SCAN01, CMPERR 
TXTERR, Z ABORT (AA) 


Processes FILE option of RECORD- 
oriented I/O by placing dictionary 
reference of FILE Declare DCB in 
the appropriate slot of the param- 
eter list. The parameter list is 
in STATIC if file constant, WORK- 
SPACE if file parameter 


FILOPT 


TXTARG, DYNMPL, LAONLY, STDROP,, 
CMPERR, TXTERR, WRKSPC, MVPSCD, 
ZTXTRF (LA), SYMREG, MV3 (LA) 


•h 


Establishes the record descriptor 
vector (RDV) in the RECORD-oriented 
I/O parameter list from the data 
variable referred to in the INTO or 
FROM RECORD-oriented I/O option. 

The routine assumes the RDV dic- 
tionary entry to have been pre- 
viously constructed, except for 
CONTROLLED variables. In these two 
cases, the subroutine CRDV- 
controlled RDV is invoked to create 
the appropriate RDV. If the 
variable is static, the RDV is 
placed in the STATIC parameter 
list; otherwise, it is placed in 
the appropriate slot of the param- 
eter list in the statement's WORK- 
SPACE. 


INTFRM 


TXTARG, CMPERR, DYNMPL, LAONLY, 
STDROP, LAO SMI, CRDV, TXTERR, 

Z ABORT (AA) , WRKSPC, MVPSCD, TXTRF, 
SYMREG, ZDRFAB (AA), CALLIB, 

ZDICRF (AA) , REFRDV 
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Table NJ. Phase NJ Pseudo-Code RECORD I/O (cont'd) 


Statement or Operation Type 


Main Processing 
Routine 


Subroutines Used 


Processes KEYTO option of RECORD- 
oriented I/O by verifying that its 
argument is a character string, 
then placing it in the appropriate 
parameter list slot, which may be 
in STATIC or WORKSPACE 


KYTOPT 


TXTAR3, SCALAR, DYNMPL, LAONLY,, 
STDROP, NXTMPD, ZSTUT2 (STRUT2 in 
LV) , LAOS M2 , LAOSM1 , TXTERR, 
ZDRFAB (AA), SC5 (LA), WRKSPC, 
MVPSCD, MV3 (LA) , SYMREG 


Processes the KeY or KEYFROM option 
of RECORD-oriented I/O by 
converting the argument to a char- 
acter string if it is not already a 
character string and placing the 
result in the appropriate parameter 
list slot; this is either in STATIC 
or WORKSPACE 


KEYOPT 


TXTARG, SCALAR, DYNMPL, LAONLY, 
STDROP, NXTMPD, ZSTUT1 (STRUT1 in 
LV), LA0SM1, LAOS M2, TMPSEL, TXTERR 


Processes the IGNORE option of 
RECORD-oriented I/O by first 
checking that the argument is a 
scalar and then converting to a 
binary fixed integer if it is not 
already a binary fixed integer. 

The address of the argument is 
placed in the appropriate parameter 
list slot in STATIC or WORKSPACE 


IGNOPT 


TXTARG, SCALAR, CINTEG, DYNMPL, 
LAONLY, STDROP, MVPSCD, WRKSPC, 
MVTRPL, LA0SM1, ZDRFAB (AA) , 
CMPERR, TMPREF, NXTMPD, MV3A (LA) 
WRKSPC, SYMREG, MV3 (LA) 




Processes the event option of 
RECORD-oriented I/O by checking 
that the argument is a scalar EVENT 
variable and placing its address in 
the appropriate parameter list 
slot. The parameter list is either 
in STATIC or WORKSPACE, depending 
upon the storage class of the argu- 
ment. 


EVTOPT 
(not imple- 
mented in 
second version) 


TXTARG, DYNMPL, LAONLY, STDROP, 
NXTMPD, TMPREF, TXTERR, WRKSPC 
MVPSCD, ZTXTRF (LA), SYMREG, 

MV 3 (LA) 


+- 


At end of I/O statement, places 
REQUEST_CODE (i.e. IODEF) in sta- 
tic constant chain, puts STATIC 
parameter list in STATIC chain. 
Creates external Library calling 
sequence for RECORD-oriented I/O 
statement as follows : 


EPRM 

LA 1, PARM. LIST 
L 15, RECORD. 10. LIBRARY. ROOT 

BALR 14,15 
EPRM 


If there is a WORKSPACE parameter 
list, updates MVC or parameter list 
from STATIC to WORKSPACE. Gener- 
ates any SELL triples accumulated 
throughout statement on SELL chain. 
Cancels the RECORD-oriented I/O 
option triple codes from the SCAN 
TRT interest table. Gets next 
triple of interest and goes to 
NUSTAT to process as new statement. 


ENDIO 


ZDICRF (AA), LAONLY, LA0SM1, 
CALLIB, MVPSCD, ZTXTAB (AA) , SELL, 
SC3 (LA) 
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Table NJ. Phase NJ Pseudo-Code RECORD I/O (cont'd) 
r 


T T 

Main Processing 
Routine 


Statement or Operation Type 


Subroutines Used 


Indicates presence of NOLOCK 
option. 


NLKOPT 


None 


Delete the SELL triple encountered 
during scan of RECORD-oriented 
I/O statement but puts dictionary 
reference in the SELL chain so that 
SELL triple can be regenerated at 
end of I/O statement 


SELL routine 
at SVSeLL or 
TMPSELL entry 
point 


ZDRFAB (AA), MV3A (LA) 


At end of program, releases own 
modules and turns control over to 
next requested phase. 


PRGEND 


RLSCTL 
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Table NJ1. Phase NJ Routine/Subroutine Directory 


r T - 

Routine/Subroutine | 


Function 


CALLIB 

CINTEG 
CMPERR 
CRDV (NK) 


DEFER 

DELETE 
DYNMPL (NK) 


ENDIO 

EVTOPT 

FILOPT 

IGNOPT 

INTFRM 

KEYOPT 

LAONLY (NK) 

KYTOPT 
LA0SM1 (NK) 

LAOS M2 (NK) 

MVPSCD (NK) 

MVTRPL (NK) 

NLKOPT 
N US TAT 
NXTMPD 


Creates pseudo-code to call Library routine; indicates call in dic- 
tionary if not previously noted. 

Checks whether argument is a binary fixed integer. 

Indicates compiler error and ABORT, error code in HOLD register. 

Constructs a record description vector (RDV) entry in WORKSPACE. If 
the dope vector descriptor bit is on, then the routine generates a 
Library call to generate the RDV. If the variable has static 
extents and is not a string, the RDV is constructed from information 
in the RDV dictionary entry. If the variable is a string, then the 
RDV is constructed from its string dope vector. 

Indicates compiler error in the case of a deferred feature not 
detected by earlier phase. 

Establishes DELETE code as REQUEST_CODE. 

Establishes a parameter list in workspace if one is not already 
established. Calculates workspace offset to particular slot 
requested. Establishes a symbolic working register. Establishes 
skeleton pseudo-code for LA, ST, and DROP of register into workspace 
offset. 

Handles operations at end of I/O statement. 

Processes EVENT option. (Not implemented in second version.) 
Processes FILE option. 

Processes IGNORE option. 

Processes INTO/FROM option. 

Processes Key or KEYFROM option. 

Outputs pseudo-code for LA into symbolic work register of a dic- 
tionary reference without any offset modifiers. 

Processes KEYTO option. 

Establishes pseudo-code for a LA instruction into a symbolic work 
register with the address of WORKSPACE and a literal offset which is 
pointed to the argument register. 

Generates LA pseudo-code in which both base and offset are in reg- 
isters. 

Puts pseudo-code assembled in pseudo-code area into output text 
block. 

Invokes SCAN utility to move generated triples into output text 
block. 

Indicates presence of NOLOCK option. 

Handles operations at start of new statement. 

Invokes SCAN utility to get next triple, which is checked to see if 
it is a TMPD; if not, it is an error. 
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Table NJ1. Phase NJ Routine/Subroutine Directory (cont'd) 


r T . 

| Routine/Subroutine | 


Function 


PRGEND 


rEFRDV (NK) 


REWRIT 


SCALAR 


SCAN01 


SCNOPT 


SCRHOP 


SELL (NK) 


STDROP (NK) 


STRTNJ 


SYMREG (NK) 


TMPREF (NK) 


TMPSEL (NK) 


TXTARG 


TXTERR 


TXTEST 


UNLOCK 


WRITE 


WRKSPC (NK) 


Releases control to next phase at end of program. 

Establishes READ code as REQUEST_CODE; establishes parameter list 
size. 

Establishes the address of the RDV dictionary entry in the ARG reg- 
ister when given the data variable dictionary address in INDX1. 

Establishes REWRITE code as REQUEST_CODE . 

Confirms that dictionary code byte refers to scalar item; ascertains 
whether item is a constant. 

Indicates compiler error in the case of a deferred feature not 
detected during Read-In. 

Gets next triple of interest, branches to appropriate routine. 

Searches options, inserts RECORD-oriented I/O option entries into 
SCAN TRT interest table. 

Generates SELL triples for all dictionary references in the SELL 
| chain. 

j Outputs pseudo-code to ST contents of symbolic work register into 
| parameter list slot in workspace set up by DYNMPL, and the drop of 
| the symbolic register. 

| Initializes phase. 

[Establishes symbolic work register. 

i 

[Generates the appropriate LA pseudo-code to load the address of the 
| temporary described by TMPD. 

I 

| Adds temporary entry to SELL chain for generation of SELL triple 
j upon completion. 

I 

[Processes second argument of triple. If dictionary reference, esta- 
blishes absolute address in INDX1. Returns to LR if zero, i.e. , 
j TEMP, LR+4 if dictionary reference. If null, indicates compiler 
j error. 

I 

| Writes error message. 

I 

| Converts function code of triple interest TRT table to internal key, 
jand invokes PRGEND if end of program is indicated. 

I 

| Establishes UNLOCK code as REQUEST_CODE. (Not implemented in second 
| version. ) 

I 

j Establishes WRITE code as REQUEST_CODE. 

I 

(Establishes the requested workspace area, starting on fullword 
j boundary. 
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Table NM. Phase NM Pseudo- Code Executable I/O 


t r 

| Main Processing 
| Routine 

4 


Statement or Operation Type 


Subroutines Used 


Processes GET and PUT statements I GET 


INSERT, STORAD, INSTFL, GENPC, 
GENTR, MVTRSP, ENDLST, CALIB, 

CHAR, INTEG, UTTMPW, SRCERR, 

SCAN (LA), STRUT1 (LV), STRUT2 (LV) 


Processes OPEN and CLOSE statements j OPEN 

I 

I 

I 

JL 


INSERT, STORAD, INSTFL, GENPC 
GENTR, MVTRSP, ENDLST, CALIB, 

CHAR, INTEG, UTTMPW, SRCERR, 

SCAN (LA), STRUT1 (LV), STRUT2 (LV) 


Table NM1 . Phase NM Routine/Subroutine Directory 

r t 

I Routine/Subroutine I 


Function 


i" 


CALIB (NN) 

CHAR (nn) 
ENDLST (NN) 
GENPC (NN) 
GENTR (NN) 
GET 
GETOO 
GET20 
GET8 5 

INSERT (NN) 
INSTFL (NN) 
INTEG (NN) 
MVTRSP (NN) 
NMRl 
OPEN 
OPENOO 
SRCERR (NN) 
STORAD (NN) 
UTTMPW (NN) 


Generates part of calling sequence and makes dictionary entry for 
Library routine. 

Converts a given argument to character string. 

Completes parameter list and makes dictionary entry for it- 
Moves pseudo- code to output. 

Moves generated triples to output. 

Processes GET and PUT statements. 

Initializes switches for GET/PUT. 

PAGE option. 

Processes end of I/O statement. 

Inserts dictionary reference in parameter list. 

Inserts file reference in parameter list. 

Converts a given argument to integer. 

Moves data and format list triples to output. 

Begins scan for triples of interest. 

Processes OPEN and CLOSE statements. 

Initializes switches for OPEN/CLOSE. 

Makes error dictionary entry. 

Generates pseudo-code to store symbolic register in parameter list. 
Obtains temporary workspace. 
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Table NT. Phase NT Pseudo-Code Data and Format 
r T - 


h- 


Statement or Operation Type 


Main Processing 
Routine 


Subroutines Used 


Initializes phase, obtains scratch 
storage 


NTOOOO 


None 


Scans text 


NT0003 


NT0011, NT0014, NT0017, NT0021, 
NT0023, NT0024 , SC2 (LA) 


Collects remote format items and 
saves until end of block 


NT0011 


None 


Associates remote format items with 
data list items 


NT0014 


NTUT10 


Makes entries for Library routines 
required for EDIT-directed I/O and 
copies skeletons for phase NU into 
scratch storage, then releases 
phase 


NT0017 


f NTUT20 


Identifies type of data list item 
and enters the type code in a list 


NT0021 


None 


+- 


4 - 


Associates format and data list 
items and marks INCLUDE matrix 


NT0023 


NTUT10 


Identifies type of format list item 
and enters the type code in a list 


NT0024 


None 


Sets bits in INCLUDE matrix to 
represent STREAM I/O conversion 
requirements at execution time 


NTUT10 


None 


Makes dictionary entry for Library 
Routine 


NTUT20 


None 


Table NTl. Phase NT Routine/Subroutine Directory 


r t- 

| Routine/Subroutine | 

1 " 


Function 


NTOOOO 

NT0001 

NT0003 

NT0011 

NT0014 

NT0017 

NT0021 

NT0023 

NT0024 

NT1700 

NTUT10 

NTUT20 


Initializes phase, obtains scratch storage. 

Initializes phase address slots. 

Scans text. 

Collects remote format items. 

Associates remote format items with data list items. 

Makes entries for Library routines for EDIT-directed I/O. 
Identifies types of data list items. 

Associates format and data list items. 

Identifies types of format list items. 

No EDIT-directed I/O, therefore no scan pass. 

Sets bits in INCLUDE matrix. 

Makes dictionary entry for Library routine 
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Table NU. Phase NU Pseudo-Code Data and Format 


t T 

Main Processing 
Routine 

+- 


Statement or operation Type 


Subroutines Used 


Scans text for LIST-, DATA-, and 
EDIT-directed input/output state- 
ments 


OB110 


SCI (LA) 


Generates Library calling sequences 
for data items in DATA-directed I/O 
statements 


DATA 


INSERT, ENDLST, PARADE# OBUT25 


Generates Library calling sequences 
for data items in LIST-directed I/O 
statements . 


OBEIO 


OBUT20, OBUT22, OBUT25 


■H 


Generates Library calling sequences 
for data and format items in EDIT- 
directed I/O statements 


OB700 


None 


+- 


Generates code to set up Library 
calling sequences for identifiers 
in data lists 


OB731 


SC5 (LA), STRUT2 (LV), UT1, UT2 


Generates code to set up Library 
calling sequences for subscripted 
elements and expressions in data 
lists 


OB730 


UT2, STRUT2 (LV), UTl 


4 - 


Generates code to set up Library 
calling sequences for format items 
E and F with constant parameters 


OB940 


BCDCNV, UT15, UT18, UT9, UTll 


Generates code to set up Library 
calling sequences for format items 
E and F with variable parameters 


OB940 


UT25, UT24, UT22, UT18„ UT9, UTll 


Generates code to set up Library 
calling sequences for format items 
A, B, and control format items with 
constant parameters 


OB940 


OB20 , OBA22, OBA26, BCDCNV, UTl 5, 
UT9, UTll 


Generates code to set up Library 
calling sequences for format items 
A, B, and control format items with 
variable parameters 


OB940 


UT9, UT19, UTl, UTll 


Generates code to set up Library 
calling sequences for format items 
A and B without a parameter 


OB940 


None 


Table NU1. Phase NU Routine/Subroutine Directory 


r T - 

| Routine/Subroutine | 

1 

| BCDCNV (NV) | Converts decimal BCD to equivalent binary value. 

I 

I DATA 


Function 


| ENDLST 

I 

j INSERT 

L 


(Generates Library calling sequences for data items in DATA-directed 
j I/O statements. 

I 

(Completes parameter list and makes dictionary entry for it. 

I 

| Inserts dictionary reference in parameter list. 
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Table NUl. Phase NU Routine/Subroutine Directory (cont'd) 

Function 


r T- 

| Routine/Subroutine | 


+ 


OBC50 (NV) 
0BC61 (NV) 
OBEIO 

OBUT20 

OBUT22 

OBUT25 


Generates branch to start of list in case of FORMAT' . 

Generates branch around format item. 

Generates Library calling sequences for data items in LIST-directed 
I/O statements. 

Makes dictionary entry for DED in current TMPD triple. 

Fill in pseudo-code skeleton to make parameter list for expression 
result as data item. 

Sets register GRA to point at row in ZINCL matrix corresponding to 
data type of current data list item. Sets secondary lists in ZINCL 
if data item is complex. 

Scans text for LIST-, DATA-, and EDIT-directed I/O statements. 

Generates codes for Library calling sequences for data and format 
items in EDIT-directed I/O statements. 

Generates code for Library calling sequences for subscripted 
elements and expressions in data lists. 

Generates code for Library calling sequences for identifiers in data 
lists . 

Processes EDIT* triple. 

Looks for beginning of format list. 

Generates code for Library calling sequence for control format 
items, and format items A, B, E, and F. 

Generates branch to start of list in case of FORMAT LIST*. 

Makes dictionary entry for parameter list pointed to by GRA. 

Generates pseudo-code indicated by registers RR., BR. 

Sets register BR to absolute location of dictionary reference in 
second operand of current triple. 

Generates IPRM pseudo-code item with length set up in register RR. 

Makes dictionary entries for library routines for input and output 
of current format item director. 

Makes dictionary entry for FED for non-picture item. 

Makes dictionary entry for picture FED. 

Bump count of operands in E or F format item. 

Generates assignment triples for A, B or control format item with 
variable parameter to assign to workspace. 

Generates pseudo-code to form FED in workspace for variable paramet- 
er in E or F format item. 

Generates assignment triple for variable parameter in E or F format 
item to assign value into arithmetic register. 

Generates pseudo-code to initialize FED in workspace for E or F 
format item. 

L X J 


OB110 


OB700 

(NV) 

OB730 

(NV) 

OB7 31 

(NV) 

OB760 

(NV) 

OB 84 O 

(NV) 

OB940 

(NV) 

OB970 

(NV) 

PARADE 

UT1 


UT2 


UT9 (NV) 

UT11 

(NV) 

UT15 

(NV) 

UT15A 

(NV) 

(JT18 

(NV) 

UT19 

(NV) 

UT22 

(NV) 

UT24 

(NV) 

UT25 

(NV) 
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Table OB. Phase OB Pseudo-Code Compiler Functions 


Statement or Operation Type 


Main Processing 
Routine 


Subroutines Used 


Scans text for BUY, BUY ASSIGN 
statements and compiler function 
and compiler pseudo- variables (see 
Appendix D.8), and transfers to 
appropriate routine 


SCAN (LA) 


Replaces MTF compiler functions 
(Appendix D.8) by pseudo-code move 
character instructions, adjusting 
the target field to controlled or 
temporary type 2 workspace where 
necessary 


BUFIZE, FRSTOP, SC3 (LA) 


Replaces ADV compiler functions 
(Appendix D.8) by pseudo- code 
instructions to load specified 
element of a dope vector into a 
register 


SC3 (LA) 


Replaces SDV compiler functions 
(Appendix D.8) by instructions to 
load the maximum length from a 
string dope vector into a register 


SC3 (LA) 


Replaces compiler pseudo-variable 
triples and compiler assignment 
triples by pseudo-code instructions 
which store the value assigned in 
specified part of dope vector 


BUFIZE, STACK, MV3A (LA), FRSTOP, 
DROPRG, USTACK, SC5 (LA) 


Remove BUY, BUY ASSIGN, and SELL 
statements for scalar non- 
adjustable temporary variables from 
the text, and allocate storage in 
the pseudo-code workspace for the 
temporaries 


ST8, ST10 , ST7 


SC2, SC 3 (both in LA) 


Generates code to drop a symbolic 
register, or mark a literal 
register not wanted 


DROPRG 


Determines whether the target dic- 
tionary reference of MTF function, 
or ADV or SDV pseudo-variable is 
controlled or a temporary type 2 . 

If it is, the dictionary reference 
is replaced by the dictionary ref- 
erence of the controlled or tem- 
porary type 2 workspace, with the 
appropriate offset, if the target 
is a structure base element 
Stack and unstack the information 
specifying the target field of 
compiler pseudo- variable assignment 


FRSTOP 


SETDVF 


STACK, USTACK 


Calculates the offset of the dope 
vector of a structure base element 
from the start of the structure 
dope vector 


SETDVF 


Place triples from the source text 
in an internal buffer. 


BUFIZE 


SC5 (LA) 
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Table OBI. Phase OB Routine/Subroutine Directory 


r r* 

| Routine/Subroutine j 

h 


Function 


ADVR 

AT 7 
AT 8 

BUFIZE 

BY5 

BY19 

DROPRG 

FRSTOP 

MTFR 

SDVR 

SETDVF 

STACK/USTACK 

ST1 

ST4, ST6 

ST7 , ST8 , ST10 


Replaces ADV compiler functions by pseudo-code instructions to load 
the specified element of a dope vector into a register. 

Generates pseudo-code 

Replaces operand by workspace reference. 

Places triples from the source text in an internal buffer. 

Tests length of string. 

Processes string temporary (dope vector only). 

Generates code to drop a symbolic register or mark a literal reg- 
ister not wanted. 

Replaces the target field of MTF function or compiler pseudo- 
variable by controlled workspace where necessary. 

Replaces MTF compiler functions by pseudo- code move character 
instructions . 

Replaces SDV compiler functions by pseudo-code instructions to load 
[the maximum string length into an object register. 

Calculates the offset from the start of a structure dope vector to 
the dope vector of a particular base element. 

Stack and unstack information specifying target field of compiler 
pseudo- variable assignment. 

Scans text for BUY and BUY ASSIGN statements, compiler functions, 
|and compiler pseudo- variables. 

Replaces compiler pseudo-variables and compiler assignment triples 
by pseudo code instructions to set the assigned expression, convert- 
ed if necessary in the specified part of a dope vector. 

Remove BUY, BUY ASSIGN, and SELL statements for fixed scalars from 
the text, and allocate space for the temporary variables in the 
pseudo- code workspace. 
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Table OE. Phase OE Pseudo-Code Assignment 


Statement or Operation Type 

T T ~ “ - “ ~ 

|Main Processing] 

| Routine | Subroutines Used 

X X 

Generates pseudo-code for assign- 
ment triples 

i ASSOO 

1 

| ASCOO, ASCDOO, ASDROP 

1 

Generates Library calling sequences 
for ALLOCATE, FREE, BUY, and SELL 
triples 

i ’ ■ 

ij ALLOC, FREE, 
j BUY , or SELL 

1 

j CALIB 

1 

1 

. X _ _ _ 


Table OEl. Phase OE Routine/Subroutine Directory 


r r* 

| Routine/Subroutine | 


Function 


j ALLOC (OF) 

| Processes 

1 

ALLOCATE triples. 


| ASCOO 

i 

(Inserts target types for constants. 

1 


| ASCDOO 

1 

j Controls assignment of real and complex data. 

i 


| ASDROP 

| Drops symbolic registers. 

i 


| ASFBOO 

i 

| Generates 

i 

code for fixed binary assignments. 


| ASFDOO (OF) 

1 

| Generates 

code for fixed decimal assignments. 


| ASFLOO 

1 

j Generates 

i 

code for floating-point assignments. 


| AS LOO 

1 

| Generates 

i 

code for label assignments. 


| ASSOO 

1 

| Processes 

i 

assignment triples. 


| ASS032 

| Tests for 

special assignment triple. 


| ASTRO 0 (OF) 

| Generates 

I 

code for string and numeric field assignments. 


| BUY (OF) 

i 

| Processes 

i 

BUY triples. 


1 CALIB (OF) 

1 

| Generates 

i 

Library calling sequences. 


| ENABLE 

i 

| Enables for SIZE prefix option. 


| FREE (OF) 

i 

| Processes 

I 

FREE triples. 


| GENCNV 

1 

| Generates 

i 

convert macro instruction. 


j GENRXO 

1 

| Generates 

RX instruction. 


| GENSSO 

1 

| Generates 

1 

SS instruction. 


| GETDES 

I 

| Obtains operand description. 

i 


| RMNDX 

1 

| Removes index from operand. 

i 


| SBGTNR 

1 

| Obtains next symbolic register. 

1 


| SELL (OF) 

i 

| Processes 

i 

SELL triples. 


|SPASS (OF) 

1 

| Processes 

special assignment triples. 
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Table OG. Phase OG Library Calling Sequences 


r t t 

| | Main Processing! 

j Statement or Operation Type | Routine j 

j. -j- + 

(Examines all triples left in text )MJG012 (UPDATE, 

| before converting them to pseudo- | |MJG060, 

j code j • j 

J. 1 j 

(Transfers pseudo-code to output (MJG060 (MJG300, 

(text ( j MJG075, 

j. j -f 

| Generates calling sequence for |MJG200 |IEM0H, 

j Library conversion modules j j 

j. j 1 

| Controls the output of text and the (UPDATE |MVCHR, 

j handling of output text blocks j ( 

L j_ 1 


Subroutines Used 


MJG030, FMT001, MJG045 
MOVEN 


MJG200, MJG080, MJG100 
UPDATE, MOVEN 


UPDATE, MOVEN 


BMP TXT 


A 

A 

j 
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Table 0G1. 


r T 

| Routine/Subroutine | 


Phase OG Routine/Subroutine Directory 

Function 

Handles the output of text blocks. 

Processes FORMAT and FORMAT LIST triples. 

FORMAT LIST' triple encountered. Clears workspace 3 marker* reverts 
to workspace 1. 

Examines data types in CONVERT macro, and generates calling sequence 
to a conversion routine. 

Converts statement number triple to pseudo- code, moves to output 
text. 

Examines all triples left in text before converting them to pseudo- 
code. 

Processes PROC, PROC', BEGIN, BEGIN' triples and sets up counts for 
working storage requirements. 

Sets up workspace counts for containing block. 

Sets up workspace counts for block. 

JMP, EOP, or E0P2 encountered. If EOP, moves to output text; 
otherwise, makes appropriate branch. 

Removes JUMP triple from text and prepares for following pseudo- 
code. 

Handles the transfer of pseudo-code and looks for CONVERT items. 
Transfers 5-byte pseudo-code items. 

Transfers 3-byte pseudo-code items. 

Transfers variable length pseudo-code items. 

Controls the output of the pseudo-code generated to call conversion 
routines. 

Generates pseudo-code to point to source data. 

Generates pseudo-code to call Library conversion routine. 

Sets bits for conversion modules. 

Removes IGN triple. 

Deletes length of pseudo-code; gets next pseudo- code instruction. 
Handles the input text when an item spans blocks. 

Moves text to an output block. 

Tests whether the current text block is full. 


r - - 

j BMPTXT 


’”~l 

| FMT001 



| FMT002 



| IEMOH 

(OH) 


| MJG011 



| MJG012 



| MJG030 



| MJG034 



| MJG036 



| MJ GO 4 0 



| MJG045 



| MJG060 



| MJG075 



| M J G 0 8 0 



j MJG100 



| MJG200 



| MJG203 

(OH) 


| MJG204 

(OH) 


| MJG298 

(OH) 


| MJG300 



| MJG308 



| MOVEN 



| MVCHR 



| UPDATE 

L 


JL 
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Table OS. Phase OS Constant Conversions 
r 1 


Statement or Operation Type 


Main Processing 
Routine 


Subroutines Used 


Scans constants chain for double 
word constants 


SCAN! 


POOLSC, SCN010, STPTST 


Scans constants chain for single 
word constants 


SCAN2 


POOLSC, SCN010, STPTST 


Scans constants chain for unaligned 
constants 


SCAN3 


CONVRT, IADENT, SCNQlO, STPTST 


Scans through constants chain for 
all constants used to initialize 
STATIC storage 


SCAN4 


CONVRT, STPTST 


Sets up parameter and branches to 
the correct conversion routine 


CONVRT 


ARARD, ARBTD, ARC HD, CHARD, ERROUT, 
I AC ON V, IASTRN, IHEVFA, IHEVFB,, 
IHEVFC, IHEVFD, IHEVFE, IHEVKF, 
IHEVKG, I HE VP A, IHEVPB, IHEVPC, 
IHEVPD, IHEVPE, IHEVPF, IHEVP3, 
IHEVPH, UPAA, UPAB, UPBA, UPBB, 
VSAA, VSCA, VSDA, VSEA, ZEROPT 


—J 


Table OS1. Phase OS Routine/ Subroutine Directory 


r T _ 

| Routine/Subroutine j 


Function 


ARARD 

ARBTD 

ARCHD 

CHARD 

CONVRT 

ERROUT 

IACONV 

IADENT 

IASTRN 
IHEVFA (OT) 

IHEVFB (OT) 
IHEVFC (OT) 
IHEVFD (OT) 

IHEVFE (OT) 


Handles the linking of routines required for any arithmetic to 
arithmetic conversions (corresponding Library module IHEDMA) . 

As above for arithmetic to bit conversion (corresponding Library 
routines IHEDNB) . 

Arithmetic to character ( IHEDNC ) . 

Character to arithmetic (IHEDCN). 

Sets up parameters and branches to correct conversion routine. 
Handles the output of error messages for the conversion routines. 
Handles conversion to arithmetic type. 

Makes dictionary entry in the constant pool, generating a new con- 
stant pool block if necessary. 

Handles conversion to string type. 

Converts radix long floating-point binary to packed decimal inter- 
mediate. 

Converts long precision floating-point number to fixed binary. 

Converts long floating-point number to floating-point variable. 

Converts fixed point binary integer with scale factor to long preci- 
sion floating-point intermediate. 

Converts floating-point number of specified precision floating- 
point. 
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Table 0S1 . Phase OS Routine/Subroutine Directory Ccont'd) 


r T" 

| Routine/Subroutine j 

1 - +- 


Function 


IHEVKF (OU) 

IHEVKG (OU) 

I HE VP A (OT) 
IHEVPB (OU) 
IHEVPC (OU) 
IKEVPD (OT) 

IHEVPE (OT) 
IHEVPF (OT) 

IHEVPG (OT) 

IHEVPH (OT) 

LDCONP 

POOLSC 

SCAN1 
SCAN 2 
SCAN3 
SCAN4 

SCN010 

STPTST 

UPAA ( UPAB) (OT) 

UPBA ( UPBB) (OT) 
VSAA (OT) 

VSCA (OT) 

VSDA (OT) 

VSEA (OT) 

ZEROPT 


Converts packed decimal intermediate to decimal fixed or floating- 
point numeric field with specified precision. 

Converts packed decimal intermediate to a sterling numeric field, 
with specified precision. 

Converts packed decimal intermediate to long float. 

Converts packed decimal intermediate to an F format item. 

Converts packed decimal intermediate to an E format item. 

Converts packed decimal intermediate to a decimal integer with 

specified precision and scale factor. 

Converts an F or E format item to packed decimal intermediate. 

Converts a decimal integer with specified precision and scale factor 
to packed decimal intermediate. 

Converts binary fixed or floating-point constant to long precision 
floating-point. 

Converts bit string constant with up to 31 significant bits, to 
floating-point with long precision. 

Points to head of constant chain. 

Given a converted constant in scratch storage, scans the existing 
pool for an identical entry. If such an entry is found, the pool 
offset and dictionary reference of the entry is moved into the dic- 
tionary entry for the constant. 

Scans constants chain for double word constants. 

Scans constants chain for single word constants. 

Scans constants chain for unaligned constants. 

Scans constants chain for constants used to initialize static stor- 
age. 

Controls the calling of the conversion routine CONVRT and pool scan 
routine POOLSC and., if required, I ADEN T. Also handles the case of a 
constant given in internal form. 

Checks for the end of the constant chain. 

Produces zero real (imaginary) part for CAD (corresponding Library 
module IHEUPA) . 

Produces zero real (imaginary) part for numeric field (IHEUPB). 

Convert from bit string to bit string (IHEVSA) . 

Convert from character string to character string (IHEVSC) . 

Convert from character string to bit string CIHEVSD) . 

Convert from character string to pictured character string (IHEVSE). 

Produces a zero real or imaginary part for a constant given in 
internal form. 
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Chart 08. Storage Allocation Logical Phase Flowchart 


***** 
*08 * 
* Al* 


*****A1* ********* 
♦STATIC 1 PD* 

*_*_*_*_*_*_*_*_* 

* SCANS TEXT * 

* SORTS STATIC * 

* CHAIN * 

***************** 


*****BL ********** 

♦STATIC 2 PH* 
*-*-*—*-*—*-*—*-* 
♦ALLOCATES ST0R-* 
♦AGE FOR STATIC * 
♦ARRAYS 6 STRUCT ♦ 
***************** 


♦****C1 ********** 
♦SYM TABLE PL^ 
*_*_*_*_*_*_*_#_* 

♦ ALLOCATES SYM ♦ 

♦ TAB AND DED * 

♦ FOR VARIABLES ♦ 
***************** 


♦**** 01 ********** 
♦AUTO SORT PP^ 
*—♦—*— *-*—*—*—*-* 

* SORTS * 

* AUTOMATIC * 

* STORAGE * 

***************** 


*****E1********** 

♦AUTO STORE PT* 
*-*-*-*-*-*-*-*-* 

♦ ALLOCATES ♦ 

♦ AUTOMATIC * 

♦ STORAGE ♦ 

***************** 


*****p i ********** 

♦PROLOGUES QF* 
*-*_*_*-*-*-*-*_* 

♦ CONSTRUCTS * 

♦ PROLOGUES FOR ♦ 
♦BEGIN AND PROC ♦ 
***************** 


*****G1 *♦♦♦ ♦*♦♦** 
♦DYN STORE QJ+ 
*-*—*—*—*—*—*-*—* 
♦ SCANS TEXT ♦ 
♦FOR ALLOCATE £ ♦ 
♦BUY STATEMENTS ♦ 
***************** 


***** 
♦09 ♦ 
♦ A 1* 
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Chart PD. Phase PD Overall Logic Diagram 


PD X 

* SCAN TEXT * 

* AND * 

* REVERSE * 

* SECOND FILE * 

* POINTERS * 

***************** 


SCSORT X 

**$** 81 *$$$*$**$$ 

* SCAN STATIC * 

* CHAIN * 

* AND « 

* SORT ENTRIES * 

* * 
*$***#*********** 


STATIC .♦. 

Cl *. 

.♦SIMPLE ♦. 

.♦ STATIC ♦ . YES 
♦ . INTERNAL .*.... 
♦.VARIABLE .* 

♦• . ♦ 

*. . * 

* NO 


*####C ?♦******#*$ 
* * 

* ALLOCATE ♦ 

.X* REQUIRED ♦ 

* STORAGE ♦ 

* * 
####****#####*#** 


.♦ IS A ♦. YES 
♦. DOPE VECTOR ...... 

♦.REQUIRED .♦ 


##### 02 *$#*$$*### 

♦ DETERMINE ♦ 

♦ DV SIZE ♦ 

<* AND ♦ 

* ALLOCATE ♦ 

* STORAGE * 

#*###**###**##### 


TVALOC .♦. 

El ♦. 

. # ♦. 

.♦ STATIC *. 
♦. EXTERNAL 
♦.VARIABLE .♦ 
*. .* 

♦ . .* 

♦ NO 


CONALC X 

#####F 1#***####*# 
♦SCAN CONSTANTS * 

♦ CHAIN AND ♦ 

♦ RELOCATE * 

♦ OFFSETS IN ♦ 
♦CONSTANTS POOL ♦ 
#$*$$$$*$*#$$$$*$ 


*##$$£ 2 *♦#####*#* 

* ALLOCATE ♦ 

♦ A 4-BYTE * 

.X* ADDRESSING *. 

♦ SLOT ♦ 

* * 
$***#$$***$$$*$*$ 


*##*#£ 3***##**$#* 

♦DETERMINE SIZE ♦ 

* OF CONTROL ♦ 
.X* SECTION AND ♦ 

* PLACE IT IN ♦ 

* DICT ENTRY * 
*#**##****#*##*** 


**#**q !♦♦♦♦♦♦♦$♦♦ 
♦ * 

♦ BUMP LOCATION ♦ 

♦ COUNTER BY * 

♦ SIZE OF POOL ♦ 

♦ * 
*$$$$$**$**#$$#** 


HI ♦. 

.♦ ARE ♦. 
.♦THERE MORE ♦. YES 
♦. CONSTANTS .♦... 
*. POOLS .* 

*• .* 

*. .* 

♦ NO 
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Chart PH. Phase PH Overall Logic Diagram 


PBSCAN X 

****#A1 ********** 

* PICK UP * 

* START OF * 

* PROCEDURE *. 

* BEGIN CHAIN * 

* * 
***************** 


JT END 

A2 *. 

.* *. 

.* END OF *. NO 
.X*. AUTOMATIC .*... 
*. CHAIN .* 

*. .* 


CONSCN X 

*****B } ********** 

* PICK UP * 

* START OF * 

* CONTROLLED * 

* CHAIN * 

* * 
***************** 


* GO TO NEXT * 

<* ITEM IN * 

* THE CHAIN * 

* * 
***************** 


.*. 

B3 *. 

.* CAN *. 

.* IT HAVE *. YES 
*. A DOPE .*.... 
*. VECTOR .* 

*. .* 

*. .* 

* NO 


.* END OF *. K 
*. CONTROLLED .*. 
*. CHAIN .* 

*. .* 

*. .* 

* YES 


*****£1********** 

* CONTINUE * 

* SCAN OF * 

* STATIC * 

* CHAIN * 

* * 
***************** 


*****C 2 ********** 
* * 

* GO TO * 

<* NEXT ITEM * 

* IN CHAIN * 

* * 
***************** 


***** 02 ********** 

* MAKE SKELETON * 

* DOPE VECTOR * 
♦ENTRY. INCLUDE * 
*WH0LE STRUCTURE* 
P IF NECESSARY * 

$ * * ** * # $ * * 


* PUT DOPE * 

•VECTOR ENTRY IN* 

* STATIC CHAIN. *... 

* ALLOCATE * 

* STORAGE * 

***************** 


BA *. 

.* DOES *. 

.♦IT REQUIRE *. NO 
.X*. A DOPE .*... 
*. VECTOR .* 

*. .* 

*. . * 

* YES 


SKDV1 X 

*****CA********** 

* MAKE SKELETON * 

* DOPE VECTOR * 
♦ENTRY. INCLUDE *X. 
♦WHOLE STRUCTURE* 

* IF NECESSARY * 
***************** 


. *. 

B5 *. 

.* IS *. 

.* IT A *. NO 
.X*. STRUCTURE .*... 
*. . * 

*. .* 


YES .* ANYTHING *. NO 
....*. IN STRUCTURE .*... 
*. REQUIRE .* 

* . D. V. .* 

* . . * 


***** DA ********** 

* INCLUDE DOPF * **** 

♦VECTOR ENTRY IN* * * 

* STATIC CHAIN. *....X* A2 * 

* ALLOCATE * * * 

* STORAGE * **** 

***************** 


X 

CSCN2 .*. 

FI *. 

. * 

.* END OF 
*. CHAIN 


.* SKELETON *. YES 
.X*. ARGUMENT .*.... 
*. LIST .* 


ARRSCN .*. 

G2 *. 

. * * 


SKARG1 

• *****£ 3********** 

* ALLOCATE * 

* AMOUNT OF * 

...X* STORAGE * 

* REQUIRED * 


***************** 


*****G3********** 

* ALLOCATE * 

* STORAGE. * 

.X* CALCULATE *. 

* NUMBER OF * 

* FLEMENTS * 

***************** 


STRALO .*. 

H2 *. 

. * *. 

NU .* *. YES 

....*. STRUCTURE .*.... 
*. .* 


*****H3********** 

* ALLOCATE * 

* STORAGE. WORK * 

. X* OUT NUMBER OF *. 
♦ELEMENT IN ANY * 

* ARRAYS * 

***************** 


♦****GA* ********* 

* IF VIRTUAL * 

* ORIGIN IS -VE * 

.X* ALLOCATE *... 

* DEGENERATE * 

* DOPE VECTOR * 
***************** 


*****H^********** 

* ALLOCATE * 

* DEGENERATE * 

. X*DOPE VECTOR FOR*. 

* -VE VIRTUAL * 

* ORIGINS * 

***************** 


***************** 
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Chart PL. Phase PL Overall Logic Diagram 


***** 
*PL * 
* Al* 


* SCAN CHAIN 

* OF STATIC 

* VARIABLES * 

* * 
***************** 




**** 

* * 

► Al 4 

t 4 

**** 


B 1 

. * *. 

. * END OF *. NO 
► . CHAIN .*... 
*. .* 

*. . * 

*. .* 

* YES 


* SCAN CHAIN * 

* OF CONTROLLED * 

* VARIABLES * 

* * 
***************** 


X 

. *. 

D1 *. 


*• NO 

• * 


***************** 


YES 

• *. 

82 *. 

.* DOES *. 
.* VARIABLE 
. REQUIRE 
OED 


* . 


*. . * 


* ALLOCATE * 
.* SYMBOL TABLE * 

* FOR VARIABLE * 

* * 
***************** 


YES 

.*. 

R3 *. 
.♦DOES *. 
.* VARIABLE 
*. REQUIRE 
*. SYMBOL . 
♦.TABLE.* 
*. . * 


► Al « 
**** 


DEDAL 1 1 X 
DEDAL2 

*****C 2*** ******* 


***************** 


YES 

. *. 

D2 *. 

.* DOES *. 
.* VARIABLE 
K. REQUIRE 
DED 


*. 


*. . * 


.* 


* ALLOCATE * 
.* SYMBOL TABLE * 

* FOR VARIABLE * 

* * 
***************** 


YES 

.*. 

03 *. 

.♦DOES ♦. 
.♦ VARIABLE 
.X*. REQUIRE 
♦. SYMBOL . 
♦.TABLE.* 
*. .* 


***************** 


NO 

. * . 

F2 *. 

.* DOES *. 
.* CONSTANT 
,X*. REQUIRE 
*. DED 
♦ . .* 


BC SCAN X 

***»*G1 ********** 

* i SCAN CHAIN * 

* OF PROCEDURE * 

* AND BEGIN * 

* BLOCKS * 

* * 
***************** 


.* . 

HI *. 

.* *. 

.* END OF *. NO 

*. CHAIN .*... 

*. • * 


YES 

"*, 


.* END OF 
CHAIN 

*. 


. * 


* SCAN CHAIN * 
.X* OF AUTOMATIC *> 

* VARIABLES * 

* * 
***************** 


.*. 

G3 *. 

.* DOES *. 

.* VARIABLE *. NO 
► . REQUIRE .*... 

*. DED .* 

*. .* 

*. .* 

* YES 


DEDAL 1 > 

DEDAL2 X 

*****H 3**** ****** 


G4 *. 

.* DOES *. **** 

.* VARIABLE *. NO * * 

.X*. REQUIRE .*.... X* H2 * 
*. SYMBOL .* * * 

♦.TABLE.* **«* 

*. .* 

* YES 


ALLOCATE 
SYMBOL TABLE 
FOR VARIABLE 


X 

***** 
*PP * 
* Al* 


**** 

* 4 

* H2 4 


***************** 


***************** 
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Chart PP. Phase PP Overall Logic Diagram 


***** 
*pp * 
* Al* 


#****A1 ********** 

*r ft ftftftft 

* SCAN ENTRY * * « 

. X* TYPE 1 CHAIN Al * 


***************** 


> , *, 

B 1 *. 

.ft IS *. 

.* THERE *. NO 
*. AN ENTRY 
*. TYPE 1 .* 

*. •* 

* YES 


Cl *. 
.* IS * 
.* THERE 
*. AN AUTO 
*. CHAIN 
*. . * 

* NO 


***** 
*PT * 
* Al* 


**** 

* * 

* C2 * 

* * 
**** 

tx.. 


***************** 


***** 01 ********** 

* * 

* MAKE AN * 

X..* AUTO CHAIN * 

* DELIMITER * 

ft * 

ftftftft ************* 

ftftftft 
ft ft 

* El ft... 

ft ft 

ftftftft X 
SQRCH .ft. 

El *. 

.ft IS ft. 

NO .* THERE A ft. YES 
...ft. DEPENDENT .ft.... 
ft. CHAIN .ft 
ft. . * 


*****F1** ******** 

ft ft 
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*. .ft 
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. ft 


E3 
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ft • .ft 

*• .ft 
ft NO 
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***************** 


*****1-13********** 

* ADD * 
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<* CHAIN TO *. 

* AUTO CHAIN * 

* * 
************$**** 


********.* .*.**♦* 


* PLACE IN * 
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* * 
****************$ 
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SRCH2 

*#$.*E4*$#**##4*# 

* SET LIST OF * 
ft DEPENDENCIES * 

...X* IN CURRENT *. 

* DEPENDENT * 
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***************** 


. X* 


*****Q4********** 

ft COMBINE ♦ 

ON CHAIN * 

AND * 

INDEPENDENT * 
ft CHAIN * 

***************** 


*****l-{4********** 
* * 

ft MAKE ft 

(ft CHAIN * 

ft DELIMITER ft 

* * 

***************** 


ft ADD TO ft 

(ft DEPENDENT ft 

* CHAIN * 

* * 
***************** 


***«*jl ********** 
* * 
* * 
ft ERROR ft 
* * 
* * 
***************** 
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Chart PT. Phase PT Overall Logic Diagram 
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♦SCAN CONTROLLED# 
♦CHAIN FOR SIZE ♦ 
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♦ DOPE VECTOR ♦ 

♦ # 
***************** 


* PICK UP FIRST * 
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DSA5 X 
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.* ON ♦. YES 

*. CONDITION 
♦. ENTRIES .♦ 

♦ . ? . * 


DSAIO X 

*****£!********** 

# ALLOCATE 8 * 

♦ WORDS FOR * 

* ADDRESSING # 

* VECTOR * 

♦ ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 
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***************** 
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****#H2 ********** 
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♦ PARAMLIST * 
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♦ WORKSPACE * 


***************** 


.* *. **** 
,* *. NO * * 

*. PROC •*•••• X* E3 * 
* « # * * * 
* . . * **** 

*. . * 
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DSA26 .♦. 

83 *. ***** 04 ********** 

. ♦ *. ♦ ♦ 
.* FORMAL ♦. YES ♦ ALLOCATE ♦ 

♦ . PARAMETER .♦ X* ONE WORD ♦ 

♦. .♦ ♦ ♦ 
♦ . . ♦ * * 

♦ . .♦ *********:******** 
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♦ ENTRY IN * 
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♦ COMPILE COOE * 
...* TO INITIALIZE * 
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* STORAGE FOR *. 
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* CREATED * 
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.X* FOR REGION * 
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* * 
***************** 


* STORE DS A * 
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* * 
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*. •* 
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* * 
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Chart QF. Phase of Overall Logic Diagram 
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Table PD. Phase PD Storage Allocation Static 1 


Statement or Operation Type 

*T “ T 

{Main Processing! 

) Routine | 

_ _L ± 

Subroutines Used 

Reverses second file dictionary 
pointers 

i pd 

1 

| NXBLCK 

1 

1 


Sorts STATIC chain 

1 - __ - - 

| SCSORT 

1 

| None 

i 


Allocates storage for simple, non- 
structured, non-external items 

| . 

| STATIC 

1 

j 

1 

| None 

1 

-X 


Allocates dope vectors for all 
non-external items 

j DVALOC 

1 

1 

| None 

1 

-L 


T 

Allocates 4-byte addressing slots; | TVALOC 
calculates control section size forj 
all external items | 

r 

1 

| STRCDV 

1 

1 

+ 


Allocates storage for constants. 

T 

| CONALC 
.X 

I 

| None 

-X _ _ 



Phase PD Routine/Subroutine Directory 

Function 

Allocates storage for constants. 

Allocates dope vectors for all non-external items. 

Obtains next text block. 

Scans text file and reverses second file pointers. 

Sorts STATIC chain. 

Allocates storage for simple, non-structured , non-external items. 

Allocates relative offsets of structure member dope vectors. 

Allocates 4-byte addressing slots; calculates control section size 
for all external items. 


Table PD1. 

r t 

1 Routine/Subroutine | 

j. 1 ^ 

CONALC 

DVALOC 

NXBLCK 

PD 

SCSORT 
STATIC 
STRCDV 
TVALOC 


L X J 
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Table PH. Phase PH Storage Allocation Static 2 

r t 


Statement or Operation Type 

(Main Processing 
| Routine 

. j_ 

1 

-j- 

Subroutines 

Used 

Scans AUTOMATIC chain; allocates 
dope vector 

T 

j PBS CAN 

1 

... .. 

j AUTO 4,, 

| TEMPDV 

± 

SKDV1, 

SKENT3, 

STRSCN, 

Scans CONTROLLED chain 

T 

| CONSCN 
j_ 

1 

| AUT04, 

J. 

SKDV1, 

STRSCN 


Allocates storage for skeleton 
argument lists appearing in STATIC 
chain 

1 

1 SKARGL 

1 

1 

± 

T 

| None 

i 

i 

j. 




Scans STATIC chain for INTERNAL 
arrays; calculates number of 
elements for those arrays needing 
initializing. Allocates storage 
for arrays and, if necessary, for 
secondary dope vectors 

I 

| ARRSCN 

1 

1 

1 

1 

1 

_l_ 

T 

| None 

1 

1 

1 

1 

1 

4_ 




Scans STATIC chain for INTERNAL 
structures. Calculates number of 
elements in structured arrays need- 
ing initializing. Calculates size 
of storage for all structures and 
bumps location counter. 

1 

| STRALO 

1 

i 

1 

1 

| None 

1 

1 

1 

I 

1 
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Table PHI 

r 


Phase PH Routine/Subroutine Directory 

T 

Routine/Subroutine | Function 


l~ 


ARRSCN 

AUTEND 

AUT04 

CONSCN 

CSCN2 

END513 

PBSCAN 

PBS1 

SKARGL 

SKARG1 

SKDV1 

SKENT3 

STRALO 

STRSCN 

TEMPDV 


Scans STATIC chain for INTERNAL arrays; allocates storage for arrays 
[and secondary dope vectors. 

Tests for end of AUTOMATIC chain. 

Calculates size of dope vectors for dynamic temporaries and CON- 
TROLLED variables. 

Scans CONTROLLED chain. 

Tests for end of STATIC chain. 

Stores STATIC location counter and releases control. 

Scans AUTOMATIC chain; allocates dope vectors. 

Gets next item in chain. 

Allocates storage for skeleton argument lists appearing in STATIC 
chain. 

Allocates storage required. 

Creates skeleton dope vector dictionary entries for non- structured 
(variables in AUTOMATIC and CONTROLLED storage. 

Constructs skeleton dope vector dictionary entries for function 
[values. 

Calculates number of elements in structure arrays to be initialized; 
calculates size of storage for all structures. 

(Creates skeleton dope vector dictionary entries for structures in 
AUTOMATIC and CONTROLLED chains. 

Creates skeleton dope vector dictionary entry for temporary work- 
space. 


246 



Table PL. Phase PL Storage Allocation Symbol Table and DEDs 


Statement or Operation Type 


t r 

| Main Processing! 

1 Routine 


Subroutines Used 


Allocates STATIC storage for all 
symbol tables and DEDS 


IEMPL 


BCSCAN, CCSCAN, CNSCAN, SCSCAN 


Scans STATIC chain for symbol and 1 
DED variables 


SCSCAN 


DEDAL1, STRSCN, SYMTAB 


Scans CONTROLLED chain for symbol 
and DED variables 


DEDAL1, STRSCN, SYMTAB 


Scans PROCEDURE block chain of 
ENTRY type 1 entries 


BCSCAN 


AC SC AN, DEDAL1 


Scans AUTOMATIC chain for symbol 
and DED variables 


ACS CAN 


DEDAL1 , STRSCN, SYMTAB 


Scans chain of members of particu- 
lar structure for symbol and DED 
variables 


STRSCN 


DEDAL1, SYMTAB 


Allocates storage for symbol tables 


SYMTAB 


DEDAL2 


Allocates storage for DEDS 


DEDAL (two 
entry points: 
DEDAL1, DEDAL2 ) 


Table PL1. Phase PL Routine/Subroutine Directory 


j Routine/Subroutine j 


Function 


Scans AUTOMATIC chain for symbol and DED variables. 

Scans procedure block chain of ENTRY type 1 entries. 

Scans controlled chain for symbol and DED variables. 

Scans constants chain for DED variables. 

Allocates storage for DEDs- 

Allocates STATIC storage for symbol tables and DEDs. 

Scans STATIC chain for symbol and DED variables. 

Scans chain of members of particular structure for symbol and DED 
variables. 

Allocates storage for symbol tables. 
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Table PP. Phase PP Storage Allocation Sort of AUTOMATIC Chain 


Statement or Operation Type 

T T 

|Main Processing! 
j Routine j 

.J. _L 

Subroutines Used 

Scans BEGIN-ENTRY for ENTRY type 1 
entries 

j RAO 

1 

. 4 . ... 

1 SETCH* 

1 

.J. 

SCRUB1, SORCH 

Scans AUTOMATIC chain from each 
ENTRY type 1 entry 

1 

| SETCH 

1 

j. 

i'eXDT, SRCH2 

1 

Adds ON conditions to first AUTO- 
MATIC zone 

T 

| SC24 

1 

T 

j None 

1 


Adds temporaries (type 2) and inde- 
pendent items to first zone 

j SC31 

1 

i 

T 

| None 

1 

. 4- . 


Adds dependent items to subsequent 
zones 

T 

j SC44 

1 

T 

| None 

1 

..j- 


Determines list of dependencies 
from INITIAL attribute 

J SC39 

1 

j SCNCHN, 

1 

SRCH2 

Determines list of dependencies 
from DEFINED attribute 

| SC40 

1 

| SCNCHN* 

1 

.j. 

SRCH2 

T 

Determines list of dependencies for|SC35 
array bound expressions j 

_ . i 

T 

| EXDT f SCNCHN 

1 

r 

Determines list of dependencies for|SC50 
string length expressions J 

. ... _ | 

T 

1 SCNCHN* 

1 

. 4 . 

SRCH2 

T 

Removes independent item dictionary | SCRUB1 
references upon which items in the j 

AUTOMATIC chain depend. I 

| None 

1 

1 

.x 
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Table PP1. Phase PP Routine/Subroutine Directory 


r T . 

I Routine/ Subroutine I 


Function 


h 


EXDT 

RAO 

RA1 

RA4 

RA.7 

SCNCHN 

SCRUBI 

SC24 

SC31 

SC35 

SC39 

SC40 

SC44 

SC50 

SETCHN 

SORCH 

SRCH2 


Scans dimensions tables for second file statements with adjustable 
bounds . 

Scans BEGIN-ENTRY for entry type 1 entries. 

Tests for end of ENTRY type 1 chain. 

Creates an AUTOMATIC chain delimiter. 

Tests for end of chain. 

Scans current AUTOMATIC chain; determines whether reference belongs 
to it. 

Removes independent item dictionary references from the stack of 
dictionary references upon which items in the AUTOMATIC chain 
depend. 

[Adds ON conditions to first automatic zone. 

Adds temporaries (type 2) and independent items to first zone. 

[Determines list of dependencies for array bound expressions. 

i 

Determines list of dependencies from INITIAL attribute. 

Determines list of dependencies from DEFINED attribute. 

Adds dependent items to subsequent zones. 

Determines list of dependencies for string length expressions. 

Scans AUTOMATIC chain from each ENTRY type 1 entry. 

Sorts chain in order of dependencies; creates zone delimiter dic- 
tionary entries. 

Scans second file statements for dictionary references of labels, 
data items, and structures, which may belong to the current AUTOMAT- 
IC chains. 
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Table PT 
r 


Phase PT Storage Allocation AUTOMATIC Storage 
Statement or Operation Type 


"T T 

| Main Processing 
| Routine 

4 


Subroutines Used 


Scans stacked CONTROLLED chain for 
largest dope vector 

j MYNAM 

1 

1 

j DVSIZE 

1 

j. 



Initializes ENTRY 
and DSA 

type 1 chain scan 

T 

| DSALOC 

1 

1 

j MKSTAT 

1 

-j- 



Allocates slots for ON conditions 

| 

| DSA4 

| MKSTAT 

-L 



Allocates storage 
for DSA addressing 

for workspace and 
vector 

j _. ... 

j DSA10 

1 

7 

| None 

i 

_L .._ 



Scans AUTOMATIC chain and allocates 
storage for dope vectors 

j . . 

| DSA16 

1 

1 

j COPY, DVSIZE, 
j STDVIN 

1 . 

INITDV, 

MKSTAT, 

Allocates BUY workspace 

j 

| DSA17 

1 

| None 



Allocates storage 

for parameters 

1 

| DSA19 

1 

| None 

4 . 



Allocates storage 
sion variables 

for double preci- 

j DSA25 

1 

| None 

1 

1 - . _ 



Allocates storage 
sion variables 

for single preci- 

j 

j DSA29 

i 

j _ 

1 

| None 

i 

. .1 . 



Allocates storage 
strings 

for character 

J 

| DSA38 

1 

1 ... 

| None 

1 

I 



Allocates storage 

for bit strings 

T 

j DSA46 

.) ... 

+ 

| None 

.. _ i 



Allocates storage for arrays and 
secondary dope vectors 

1 

| DSA54 

i 

T 

jCDPY, INITDV, 

1 

. | _ . . 

MKSTAT, 

SDVCDE 

Allocates storage 

for structures 

i 

j DSA68 
l 

I 

JCOPY, MKSTAT 

1 



Gets VDA and initializes dope vec- 
tors for adjustable regions of 
AUTOMATIC chain 

1 

| DSA72 

1 

1 

T 

| COPY, INITDV, 

1 

1 

MKSTAT, 

STDVIN 


|- + 

| Allocates storage for DEFINED items |DSA98 

L JL 


None 
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Table PT1. Phase PT Routine/Subroutine Directory 


Function 

Scans controlled chain for size of longest dope vector. 

Compiles code to copy skeleton dope vector into real dope vector. 
Initializes ENTRY type 1 chain scan and DSA. 

Allocates slots for ON conditions. 

Allocates standard save area and flag bytes. 

Allocates storage and workspace for DSA addressing vector. 

Scans AUTOMATIC chain and allocates dope vectors. 

Allocates BUY workspace. 

Allocates storage for parameters. 

Allocates storage for double precision variables. 

Allocates storage for single precision variables. 

Allocates storage for character strings. 

Allocates storage for bit strings. 

Allocates storage for arrays and secondary dope vectors. 

Allocates storage for structures. 

Initializes dope vectors for adjustable regions of AUTOMATIC chain. 
Stores pointer to skeleton second file statement. 

Allocates storage for DEFINED items. 

Allocates storage required for dope vectors. 

Compiles code to initialize dope vectors. 

Gets VDA for this region of AUTOMATIC chain if required. 

Determines size of dope vectors. 

Compiles code to initialize address slot in dope vector. 

Makes a second file statement. 

Scans CONTROLLED chains. 

Compiles code for secondary dope vectors. 

Initializes structure member dope vectors. 
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Table QF. Phase QF Storage Allocation Prologues 

r T T 

Main Processing 

Statement or Operation Type I Routine 


Subroutines Used 


Scans text for statement labels, 
PROCEDURE statements, BEGIN state- 
ments, BEGIN END statements, and 
end-of- program marker 


QF0000 


QBEGEP, QBPROL, QEOP, QMOVE , QPROL, 
QSL 


Processes statement label pseudo- 
code items 


QSL 


QMOVE 


Frees text storage at end of phase; 
releases control 


QEOP 


QMOVE 


Creates stereotyped prologue for a 
BEGIN block requiring a dynamic 
storage area 


QBPROL 


QADJAL, QFSKIP, QF0201, QMOVE 




Creates stereotyped or special 
prologues for PROCEDURE statements, 
depending on conditions. Processes 
statement label pseudo-code items 


QPPROL 


QADJAL, QFSKIP, QF0201, QMOVE, 
QONPRL 


4 - 


Creates a compiler label marking 
the return from a BEGIN block 


QBEGEP 


QADJAL, QF0201, QMOVE 


Creates a prologue for ON block 


QONPRL 

QADJAL 


QADJAL, QFSKIP, QF0201 


Assembles code to initialize DSA 
dope vector data areas, and to 
allocate variable data areas 


QMOVE 1 


4 - 


Skips second file statements 
following a block heading statement 


QFSKIP 


None 


4 - 


Obtains new buffer and chains it to 
the previous one 


QF0201 


None 


+- 


Moves input text being skipped from 
input buffer to output buffer 


4 


QMOVE 

QMOVE 1 


None 


Moves a second file statement, 
pointed at by PARI, to the prologue 
being generated 


QMOVE 
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Table QF1. Phase QF Routine/Subroutine Directory 


j Routine/Subroutine 
t + . 


Function 


QADJAL 

qbegep 

QBPROL <QG) 

QEOP 

QFSKIP (QG) 

QF0000 

QF0201 (QG) 

QF0360 

QF0370 

QF0460 

QF0570 

QF0625 

QF0860 

QF1172 

QF1194 

QF1215 

QF1511 

QMOVE 

QMOVEl 

QONPRL (QH) 

QPPROL (QG) 

QSL 


Assembles code to initialize DSA dope vector, variable data areas, 
and to allocate variable data areas. 

Creates a compiler label marking the return from a BEGIN block. 

Creates stereotyped prologue for a BEGIN block requiring a dynamic 
storage area. 

Frees text storage at end of phase; releases control. 

Skips second file statements following a PROCEDURE or BEGIN state- 
ment. 

Scans text for statement labels, PROCEDURE statements, BEGIN state- 
ments, BEGIN END statements, and end-of- program marker. 

Moves code to output buffer; obtains new buffer if required. 

Tests for external procedure. 

Generates prologue for GET DSA. 

Tests for return expression. 

Generates code to copy argument and target addresses. 

Tests for entry points. 

Tests end of chain. 

Tests end of first region. 

Extracts mapping code from second file. 

Tests for storage required. 

Removes VDA accumulator assignment code from mapping code. 

Moves text from input buffer to output buffer. 

Moves second file statement to prologue being generated. 

Creates prologue for ON block. 

Creates stereotyped or special prologues for PROCEDURE statements, 
depending on conditions. 

Processes statement label pseudo-code items. 
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Table QJ. Phase QJ Storage Allocation Dynamic Storage 


T T 

Main Processing 
Routine 


Statement or Operation Type 


Subroutines Used 
ALLOC, BUY, BUYP , FREE, TRF1. 


General scan of text for ALLOCATE, 
BUY and FREE statements 


GSl 


Allocates items not requiring dope 
vector 


AL20 


AL15, TRF2 


Generates code to move skeleton 
dope vector into workspace for 
controlled variables 


MOVEDV 


TRF2 


Looks ahead to reverse pointers for 
ALLOCATE statements 


REVPT 


GSl, TRF1 


Allocates storage for controlled 
string 


AL28 


GSl, LIBCl, LIBC2, SCANSF, TRF2 


Allocate storage for controlled 
array 


AL27 




ABOUND, LIBCl, MOVEDV, PREVAL, 
SCANSF, TRF2 


Allocates storage for controlled 
structure 


AL29 


BNDEXP, LIBCl, MOVEDV, NXTREF, 
NXTVAR, PREVAL, SCANSF, TRF2 


Loads Library call parameter reg- 
ister to free allocated storage 


FREE 


TRF2 , TRF3 


Moves skeleton dope vector for 
bought temporary 


BUYP 


TRF2 


Buys storage for temporary array 


BY14 

BY13 


SCANSF, TRF2 


Buys storage for temporary struc- 
ture 


LIBC4, NXTREF, NXTVAR, SCANSF, TRF2 


Places initial value code line for 
controlled variables 


AL15 


NXTRF, SCANSF 


Skips scan register over initiali- 
zation statements 


SKIPTX 


GSl 


Generates code to set a pointer to 
the previous allocation. 


PREVAL 


TRF2 


Searches dimension tables for 
adjustable bound expressions 


ABOUND 


SCANSF 


Generates code for temporary varia- 
bles requiring only a dope vector 


STMP 


LIBC3, TRF2 
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Table QJ1. Phase QJ Routine/Subroutine Directory 


r T 

j ROUTINE/SUBROUTINE | 

h + 

ABOUND (QK) 

ALLOC (QK) 

AL15 

AL20 (QK) 

AL27 (QK) 

AL28 (QK) 

AL29 (QK) 

BNDEXP 

BUY 
BUYP 
BY13 
BY14 
BY15 

FREE (QK) 

GS1 

LIBC1/LIBC2/LIBC4 

MOVEDV (QK) 

NXTREF (QK) 

NXTVAR (QK) 

PREVAL (QK) 

REVPT 
SCANSF 
SKIPTX 
STMP (QK) 

TRF1 
TRF2 
TRF3 


FUNCTION 

Searches dimension tables for adjustable bound expressions. 
Ascertains the type of allocate statement. 

Places initial value code line for controlled variables. 

Allocates items not requiring dope vector. 

Allocates storage for controlled arrays. 

Allocates storage for controlled strings. 

Allocates storage for controlled structures. 

Generates or extracts code to set the adjustable bounds of struc- 
tures 

Ascertains the type of buy. 

Moves skeleton dope vector for bought temporary. 

Buys storage for temporary structure. 

Buys storage for temporary array. 

Buys storage for temporary string. 

Loads Library call parameter register to free allocated storage. 

General scan of text for ALLOC ATE, BUY, and FREE statements. 

Places the library calling sequence for controlled storage in 
sequence in the text. 

Generates code to move skeleton dope vector into workspace for con- 
trolled variables. 

Obtains the next structure base element reference. 

Obtains the next varying array base element reference. 

Generates code to set a pointer to the previous allocation. 

Looks ahead to reverse pointers for ALLOCATE statements. 

Places second file statement in line in the text. 

Skips scan register over initialization statements. 

Generates code to buy storage for temporary variables which only 
require a dope vector. 

Transfers input text to output. 

Adds text skeletons to the output text. 

Adds the Library calling sequence to the output text. 


Section 3: Charts and Routine Directories 255 


Chart 09 


Register Allocation Logical Phase Flowchart 


***** 
*09 * 
* Al* 
* * 


X 

***** A 1** ******** 
♦FIRST SCAN RA* 
*-*_*_*-*_*-*_*-* 

♦ ESTABLISH * 
♦AOORESSIBILITY * 

* * 
***************** 


***** 31 ********** 

♦SECOND SCAN RF* 
*- *- *- *- *-*_*_*-* 

* ALLOCATE * 

* PHYSICAL * 

* REGISTERS * 

***************** 


X 

***** 
*10 * 
* Al* 
* * 

* 
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Chart RA 


Phase RA Overall Logic Diagram 


***** 
*RA * 
* Al* 


****:*A^ ********** 

* GET TEXT FOR * 
^OUTPUT t, INSEK-* 

* TION FILES. * 

* GET SCRATCH * 

* STORAGE * 
*********** ****** 


*****Bi ********** 

* * 

* SCAN * 

<* INPUT TEXT *X. 

* * 

* * 

***************** 


**** 

* 4 
^ 81 * 

* * 
**** 


*. PROC • /BEGIN* 


. *. 

El *. 

.* START *. 

.* OF *. 

. PL/I 

*. STATEMENT.* 


. *. 

FI *. 

.* *. 

.* PSEUDO- *. 
. CODE 
♦INSTRUCTION* 

, * 


ACT6 

**** *C2* ********* 

* STACK * 

* INFORMATION * 
...X* FOR PREVIOUS *. 

* PROC/BEGIN * 

* * 
***************** 


ACT 7 

***** 02 ********** 

* DOWN DATE * 

* STACK IN * 

...X* SCRATCH *.. 

* STORAGE * 


*****03********** 

* GET NEW STACK * 

* ENTRY FOR NEW * 
X* 8L0CK IN *. 

* SCRATCH * 

* STORAGE * 
***************** 


***************** 


•* STATEMENT *. YES 

. X*. NO. DIAGN .* 

♦.REQUESTED.* 


UPSN 

*****£3********** 

* GENERATE * 

* CODE TO * 

...X* UPDATE *. 

* STATEMENT * 

* ON-SLOT * 

*******$********* 




* NO 


. * 


*. 


.* ABSOLUTE *. YES 
*. COOE .*.... 

*. MARKER .* 

*. .* 

*. .* 

* NO 


DRTEST, ADTEST 

*****F2********** 

* EXTRACT * 

* DICTIONARY * 
...X* REFERENCES *. 

* AND OFFSETS * 


***************** 


ACT12 

***** 22 ********** 

* SKI P TO * 

* END OF * 

...X* ABSOLUTE * 

* CODE * 


ro .*. 

F3 *. 

.* HAS *. 

.* CODE BEEN *. 
.X*. PRODUCED 

*. BEFORE .* 


GENFLP 

*****£4********** 

* GENERATE * 

* CODE TO * 

...X* UPDATE *... 

* PREFIX * 

* QN-SLOTS * 

***************** 


***** F4* ********* 

* GENERATE * 

* LOAD FROM * 

.X* STORED *. 

* ADDRESS * 


. * 


HI 


*. 


.* PROLOGUE *. YES 
*. INSERTION .*.... 
*. POINT .* 

*. .* 

*. .* 

* NO 


.*. 

J1 *. 

.* END *. 

NO .* OF *. 

,..*. PROGRAM .< 

*. .* 

*. .* 

*. .* 

* YES 


***************** 


..X* B 1 * 
* * 
**** 

ACT 1 3 

*****H2********** 

* START CHAIN * 

* TO ADDRESSING * 
...X* INSTRUCTIONS * 

* IN INSERTION * 

* FILE * 

***************** 


***** 23 ********** 

* PRODUCE ANY * 

* NECESSARY * 

* ADDRESSING *. 

* INSTRUCTIONS * 

* IN SCRATCH * 
***************** 


***************** 


• *• 


G4 

.* MUST ♦ 
.* CODE 
.X*. BE 

*. IN-LINE 

*. .* 


ADINST 

*****134********** 

♦IF WORTH-WHILE,* 
♦PUT I NSTRUCTNS * 

* IN INSERTION * 

* FILE PROLOG * 

* ELSE IN-LINE * 
***************** 


ADD , ADD2 X 

*****J4********** 

* IF IN PROLOG, * 

* GENERATE * 

* STORE OF *. 

* CALCULATED * 

* ADDRESS * 

***************** 


U25 

*****25********** 
♦MOVE ADDRESSING* 

* INSTRUCTIONS * 
...X* FROM SCRATCH *.. 

* STORAGE * 

* TO IN-LINE * 
***************** 


*****j 5* ********* 

* GENERATE * 

* LOAD OF * 

.X* ADDRESS *... 

* STORED * 

* * 
***************** 


***** 
*RF * 
* Al* 
* * 


Section 3: Charts and Routine Directories 257 



Chart RF. Phase RF Overall Logic Diagram 


*****A i ********** 

♦GET TEXT BLOCK * 
♦FOR OUTPUT AND * 
♦SCRATCH STORAGE* 

* FOR LISTS * 

* ANO STACKS * 
***************** 


**** 

P9INIT X 

**»**B1 ********** 


***************** 


.* USING *. YES 
*. PSEUDO- .*.... 
♦INSTRUCTION* 

*. .* 


*****C2********** 

* EXTRACT * 

* REGISTER * 

<* USAGE AND *. 

* IMPLIED * 

* BASES * 

***************** 


OBREGS 

#****C 3 ********** 

* SCAN REGISTER * 

* TABLE FOR * 

...X* REQUESTS * 

* PRESENT * 


***************** 


• *. 

D3 *. 

.* ALL *. 

.* REGISTERS *. YES 
. AVAILABLE .*.... 


.*. L AD 1 

£1 *. *****e 2* ********* 

.* *. * GET FREE * 

.♦ADDRESSING *. YES * REGISTER FROM * 

*. INSTRUCTION .* X*REGI STER TABLE.*. 

*. .* *GENERA TE STORE * 

*. .* * IF NONE * 

*. .* ***************** 

* NO 


FI *. *****F2********** 

.* *. * BRING IN * 

.* PROLOG *. YES * ADDRESSING * 

*. INSERTION .* X* INSTRUCTIONS *. 

*. POINT .* * FROM * 

*. .* * I NSE RT I ON FILE * 

*. .* ***************** 

* NO 


.* ENOUGH *. NO 

>. FREE .*... 

♦.REGISTERS.* 


D* *. *****05********** 

.* *. * CONSTRUCT * 

.* BRANCH *. NO * COMPLETED * 

.X*. IN OR OUT .* X *1 NS TRUC T I ON AND* 

*. POINT .* X * OUTPUT * 

* . . * . * * 
*, ,* . ***************** 


STORE 1 » 

QB630 X 

* GENERATE * 

* STORES OF * 
...X* REGISTERS IF < 

* BRANCH IN OR * 

* OUT * 


• *• 

F3 *. 

.* SOME *. 

.* REGISTERS *. YES 
♦.HAVE PREVIOUS.*.... 
♦.VALUE IN .* 

* . STORF . * 

*. . * 

* NO 


* GENERATE CODE * 
<* TO LOAD *. 

* REGISTERS * 

* * 
***************** 


ADI MOV 

*#***G 3 ********** 

* EXPAND * **** 

* ADDRESSING * * * 

..X* INSTRUCTIONS *....X* Bl * 

* IN OUTPUT * * * 

* * **** 
***************** 


.♦PROC/PROC' *. YES 
* . BEGI N/BEG IN' .*.... 
*. .* 

*. .* 

*. .* 

* NO 


.* UKUK. *• I 

*.IPRM«, EPRM' .*. 
*. .* 

*. .* 

*. .* 

* NO 


NO .* END *. 
...*. OF .« 

*. PROGRAM .* 

*• .* 

*. .* 

* YES 


LPROC, 

LEND 

*****H2 ********** 

* UPDATE * 

* OR DOWNDATE * 

..X* STACK OF *. 

* BLOCK ENTRIES * 

* * 
***************** 


LDKOP 

*****J2********** 

* DELETE * 

* REFERENCES IN * 

. . . X*REG I STER TABLE *. 

* ANO SCRATCH * 

* STORAGE * 

***************** 


.X* B 1 * 
X * * 
. **** 
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Table RA. Phase RA Register Allocation Addres sibil it y Analysis 
r* 


Statement or Operation Type 

- T ~ - T 

| Main Processing! 

| Routine j 

.X X 

Subroutines Used 

Controls scan of source 

j LAA 

1 

-X 

j ACTl, ACT 2, ACT5, ACT 8 , ACT9, 

| ACTIO, ADCBUF, GETSBF 

.X 

Processes RX, RS, or SI instruc- 
tions 

T 

j ACT 3 

1 

4 .... . 

j ADTEST, 

1 

_4 

DRTEST 

Processes SS instructions 

■ + 

| ACT4 

-.j- 

T 

j ADTEST, 

. -j- 

DRTEST 

Compiles code for start of PL/I 
Statement: 1. with label, 2. 
without label, 3. compiler label 

| ACT15 , ACT14 , 

| ACT16 

1 

] ADCBUF, 

1 

1 

_4_ 

GENFLP, UPSN 

Processes PROCEDURE and BEGIN 
blocks 

| ACT 6 

1 

. 

T 

| ADCBUF 

1 


Processes END statements on PROCE- 
DURE or BEGIN blocks 

T 

J ACT7 

1 

-4. 

t 

| ADCBUF 

1 

. 4 . 


Adds text to output string 

T 

j ADCBUF 

j . 

1 

j GETCBF 

x 


Adds text to insertion file 

j' ADIBUF 

-j_ 

■ + 

j GETIBF 

-4_ 


Obtains new source buffer 

j GETSBF 

_ -j- 

T 

| None 

_4_ 


Obtains next output buffer 

I GETCBF 

-.j- 

1 

| None 

_4_ 


Obtains next insertion file buffer 

j GETIBF 

_4_ 

1 

| None 


Examines dictionary reference in 
source 

T 

1 DRTEST 

1 

.X 

| ADINST, 

1 

-.j- 

DECOMP, , SETBLK 

T 

Produces recovery code when literal | ADTEST 
offset greater than 4095 is met j 

X 

j ADCBUF 

1 


Creates coded addressing instruc- 
tions 

1 adinst 

1 

.X _ 

| ADCBUF, 

1 

.X_ _ 

ADIBUF 


Section 3: Charts and Routine Directories 259 




Table RA1. Phase RA Routine/Subroutine Directory 


| Routine/Subroutine | 


Function 


k- 


+- 




ACTl 

ACT 2 

ACT 3 

ACT 4 

ACT 5 

ACT 6 

ACT7 

ACT8 

ACT9 

ACTIO 

ACT12 

ACTl 3 

ACTl 4 

ACT15 

ACT 16 

ADD/ADD2 

ADCBUF 

ADIBUF 

ADINST 

ADTEST 

ATD 

DECOMP 
DRTEST (RB) 
DTY 

GENFLP 

GETCBF 

GETIBF 

GETSBF 

LAA 

L125 

SETBLK 

UPSN 


Copies non-special three-byte item to output. 

Copies non-special five-byte item to output. 

Processes RX„ RS, or SI instructions. 

Processes SS instructions. 

End of block routine. 

Processes PROCEDURE and BEGIN blocks. 

Processes END statements on PROCEDURE or BEGIN blocks. 

End of source text routine. 

Action of start of common block of prologue. 

Action at end of prologue. 

Copies absolute code to output stream. 

Creates ADI instruction at prologue insertion point. 

Compiles code for start of PL/I statement with label. 

Compiles code for start of PL/I statement without label. 

Compiles code for start of PL/I statement compiler label. 

Generates store of calculated address. 

Adds text to output string. 

Adds text to insertion file. 

Creates coded addressing instructions. 

Produces recovery code when literal offset greater than 4095 is met. 
Tests whether previous offset is out of bounds. 

Decodes dictionary reference. 

Examines dictionary reference in source. 

Scans step table and generates addressing instructions. 

Generates code to set bits on and off in a prefix ON-slot. 

Obtains next output buffer. 

Obtains next insertion file buffer. 

Obtains next source buffer. 

Scans input text. 

Moves addressing instructions to IN-LINE. 

Finds block number of referenced item. 

Generates code to keep the statement number slot in the DSA up to 
date. 
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Table RF. Phase RF Register Allocation Physical Registers 


Statement or Operation Type 

..... 

T T 

j Main Processing! 

| Routine j 

x ± 

subroutines Used 

— 

Controls scan of text 



j Z9 

i 

1 

1 

1 _ 

| ADCBUF, ADIMOV, BR1, BR3, BR4, 
j GETNXT, LBAL, LBALR, LBCTR, LEOB, 

| LEOP, LRl, LR3, LR4, LR6, LR7, LR9 , 
j LSHIFT, OBREGS 

.X 

~ -- 

Processes PROCEDURE or BEGIN state- 
ment 

L 

T 

| LPROC 

1 

j. 

T 

| None 

1 

i . 



r t 

| Processes end of PROCEDURE or BEGIN | LEND 
| block j 

i 

i 

| None 

1 

j . .. 



r 

Processes requests for registers; 
allocates physical registers 

.. _. . ._ .... . 

T 

j OBREGS 

1 

i . .... . 

i BRGUSE, 
j ST0RE1, 

FRTEST, 

ST0RE2, 

L0AD1, 

REGUSE 

— - - 

Compiles code to store symbolic 
registers 

. .. 



1 

j STORE 2 

1 

.X 

| ADCBUF 

1 



Compiles code to store assigned 
registers 

T 

| STORE 1 

i 

4_ 

| ADCBUF 

1 

-4_ 



Compiles load of physical registers 

t 

| L0AD1 

4_ 

1 

| ADCBUF 

_4_ 



— 

Scans list of free registers to 
make even-odd pair 

1 

| FRTEST 

i 

4- 

I 

| None 

1 

-4- 



Compiles load register 

*- 

1 

| LOADRG 

4_ 

T 

| ADCBUF 

..j- 



^ r- 

Expands coded addressing instruc- 
tions 

...... 

1 - . - 

| ADIMOV 

1 

-j_ 

| ADCBUF 

-4_ 



r 

| Adds to output buffer 

| ADCBUF 

X 

T 

| None 
.1 




I 

I 

1 


1 

•1 

-I 

\ 

1 


Table RF1. Phase RF Routine/Subroutine Directory 


r r- 

| Routine/Subroutine | 


Function 


j ADCBUF 

|Adds to output buffer. 

i 



| ADIMOV 

1 

| Expands coded addressing instructions. 

i 



| BRGUSE 

1 

| Tabulates use of base register in look-ahead. 

i 



| BR1 (RH) 

1 

(Processes RX branch instructions. 



| BR3 (RH) 

1 

(Processes BCT instructions. 

i 



1 BR4 (RH) 

1 

(Processes RR branch instructions. 



| FRTEST 

1 

| Scans list of free registers to make even-odd pair. 

1 



1 GETNXT 

1 

^Obtains next block. 

I 



| LAD1 (RH) 

1 

(Processes ADI (addressing) instructions. 

j 



| LB (RH) 

(Constructs and puts out completed instruction. 
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Table RF1. Phase RF Routine/Subroutine Directory (cont'd) 

Function 


r T - 

| Routine/Subroutine J 




LBAL (RH) 
LBALR CRR) 
LBCTR CRH) 
LDROP (RH) 
LEND (RH) 
LEOB (RH) 
LEOP 
LOAD1 
LOADRG 
LPROC (RH) 
LRl (RH) 

LR3 (RH) 

LR4 (RH) 

LR6 (RH) 

LR7 (RH) 

LR9 (RH) 

LSHIFT (RH) 
OB560 ( RG) 
OB630 (RG) 
OB895 (RG) 
P9INIT (RH) 
OBREGS (RG) 
REGUSE 
STORE 1 
STORE2 
W4 (RH) 

Z9 (RH) 


processes BAL instructions. 

Processes BALR instructions* 

Processes BCTR instructions. 

Processes DROP pseudo- instruction. 

Loads end of PROCEDURE or BEGIN block. 

Processes end-of- block marker. 

Processes end- of- program marker. 

Compiles load of physical registers. 

Compiles load register. 

Processes PROCEDURE or BEGIN statement. 

Processes instructions in which first and second operands require 
loading, and the first is altered, e.g., AR. 

Processes floating-point instructions. 

Processes SS instructions. 

Processes instructions where a load of first operand is required, no 
operands are changed, e.g., ST. 

Processes SI instructions. 

Processes instructions in which no load of first operand is needed, 
and it is changed, e.g., LA. 

Processes shift instructions. 

Tests whether all registers are available. 

Generates stores of registers if branch in or out. 

Generates code to load registers. 

Main text scan. 

Processes requests for registers; allocates physical registers. 
Tabulates use of registers in look ahead. 

Compiles code to store assigned registers. 

Compiles code to store symbolic registers- 
Extracts ADIs at prologue insertion point. 

Controlling scan of text. 
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Chart 10. Final Assembly Logical Phase Flowchart 


***** a i ********** 
*DCB GEN TA* 

*_*_*_*_*-*_*_*-* 

* GENERATE * 

* DC LCB * S AND * 

* INCLUDE CARDS * 
***************** 


*****g X ********** 
♦PASS I TF* 

*-*-*-*-*-*-*-*-* 
♦ASSIGN OFFSETS * 

♦ TO LABELS ♦ 

* * 
***************** 


.♦ *• 

• ♦ *. YES 

♦. OPTIMIZE •♦.... 

*. .* 

*. •* 

* NO 


«****(; 2 ********** 

* OPT. TJ* 

*-*?♦- *-*-*-*-*-* 

.X* OPTIMIZE ♦ 

* MVC * S AND B 1 S * 

* * 
***************** 


***♦*□1 ********** 
♦ESD TO* 

*_*_*_ *_*_*_*_*-* 

* GENERATE ♦ 

* ESD CARDS * 

* * 
***************** 


*****££********** 
♦PASS 2 TT* 

*_*_*_*_*_*_*_*^* 

♦ GENERATES * 
♦TXT, RLD CARDS * 

* * 
***************** 


*****F1**** ****** 

♦STATIC UA* 

*_*_*-.*_*_*-*-*_* 

* STATIC ♦ 
♦INITIALIZATION ♦ 

* * 
***************** 


G1 ♦• 

. ♦ ♦. 

.♦ ♦• YES 

♦. LIST TEXT ...... 


*****Q2 ♦♦♦♦♦♦♦♦♦♦ 
♦LIST UF* 

*_*_*_*_*_*_*_*_* 
><♦ LIST TEXT ♦ 


***************** 
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Chart TA. Phase TA Overall Logic Diagram 


***** 
♦TA * 
* Al* 


♦INITIALIZATION ♦ 


***************** 


HOD .♦. 

B1 ♦. 

.* *. **** 

.* END OF *. YES * ♦ 

♦.STATIC CHAIN ......X* B5 ♦ 

♦. .* * * 
*. .* **** 


*****C l ********** 


* GET NEXT * 

* ENTRY IN ♦ 

* STATIC CHAIN ♦ 

* * 
***************** 


.* FILE *. YES 
CONSTANT 
*. (081 .* 


IL0110 X 

♦****A 3********** 

* FILENAME TO ♦ 
♦SKELETON DCLCB ♦ 
♦CHANGE SYSPRINT* 

* TO IHESPRT ♦ 

* * 
***************** 


NO .* ANY *. 
...♦. ATTRIBUTES .♦ 

♦ . .♦ 


* CHECK ATTRIBS ♦ 

♦ AND MAKE OPEN ♦ 

♦ CONTROL BLOCK ♦ 

* * 
***************** 


******3********** 

♦ MOVE OCB INTO * 

♦ APPROPRIATE ♦ 

♦ PART OF DCLCB ♦ 

♦ SKELETON ♦ 

♦ * 
***************** 


. * 


El 


*. 


NO .♦ ♦. 

...♦. ATTRIBUTES .< 
♦. ( 98 ) .♦ 

*. .* 

♦ • •♦ 

♦ YES 


♦ CHECK ATTRIBS * 

♦ AND MAKE OPEN * 

* CONTROL BLOCK ♦ 

* * 
***************** 


♦ GET ENVMNT ♦ 

♦ STRING * 

♦ (MAY BE NULL) ♦ 

♦ * 
***************** 


IHEENV, 

IL0115 a 

* * 
♦CHECK AND PLACE* 

* IN SKELETON * 

* DCLCB * 

* * 
***************** 


** * **Q i ********** 

♦ MAKE DICT * 

♦ ENTRY AND ♦ 
CHAIN FROM ♦ 

STATIC ENTRY * 

♦ ♦ 
***************** 


. . * 


♦ ♦♦♦ 

♦ ♦ 

♦ B5 ♦ 

♦ ♦ 
♦ ♦♦♦ 


IL0200 X 

***«*B5* ♦♦♦♦♦♦♦♦♦ 
♦RELEASE IEMTB. ♦ 

♦ LOAD IEMTC. ♦ 

♦ GET INCLUDE ♦ 

♦ MATRIX ENTRY ♦ 

♦ ♦ 
***************** 


♦GENERATE STRING* 

* OF LIBRARY * 

* MODULE NAMES * 

* * 
***************** 


IL0201 

*****05********** 

* DISECT STRING * 

* AND FORM * 

* INCLUDE CARD * 

* IMAGES. * 

* PUNCH CARDS * 
***************** 


IL0206 


E5 


. *. 


*. 


.* IS *. 

NO .* EXTERNAL *. 

*. PROCEDURE .* 

X *. MAIN .* 

***** *. # * 

*TF * *. .* 

* Al* * YES 


****** f 5 *********** 

* OUTPUT AN * 
INCLUDE IHESAPA 
* CARD * 

************* 


***** 
*TF * 
* Al* 
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Chart TF. Phase TF Overall Logic Diagram 


***** 
*TF * 
* Al* 
* * 


**** 

* * 

* A3 * 

* * 
**** 


I LOGOO X 



. *. 


IL0022 


*****41 ********** 



A3 ♦. 


*****44********** 


♦INITIALIZATION.* 



* *, 


* * 

**** 

* GET SCRATCH * 


• * 

END 

*. YES 

♦ CHAIN TO ♦ 

* * 

* STORAGE FOR * 


* . 

OF TEXT 

.*.... 

....X* NEXT TEXT *•• 

. . X* B1 ♦ 

* LABEL TABLE. * 


* 

BLOCK 

* 

♦ BLOCK ♦ 

* * 

♦GET INPUT TEXT * 

**** 


*. .* 


* * 

**** 

***************** 

* * 


*. . * 


***************** 



♦ B2 ♦ 


♦ NO 




**** 

* * 






* * 

**** 






* B 1 *.X, 

* * 

* 


• 




**** 



X 




ILC003 X 

IL0024 X 

I LOO 1 T 

• *. 




**♦**61 ********** 

*****52********** 


B 3 ♦. 




* GET BRANCH * 

♦ GET LENGTH ♦ 


* * 




* LIST INDEX * 

* OF CURRENT ♦ 

NO .♦ 

END OF 

♦ . YES 



* FROM TABLE 1 *X. . 



PROGRAM 

.*•••• 



* USING CURRENT * 

* TABLE 2. BUMP ♦ 

*. 


* 

X 


* OP CODE * 

♦ INPUT POINTER ♦ 


*. • * 


***** 


***************** 

***************** 


*• .* 


♦ TJ ♦ 


• 



* 


♦ AI * 



* * 


• * • 


ILOOIO 




Cl ♦. 


*****£ 2********** 

*****Q3********** 

*****04********** 


* * 


* SAVE CURRENT * 

* DETERMINE * 

* * 


PROCEDURE 

*. YES 

* LOCN COUNTER * 

* NUMBER OF * 

* SET LOCATION * 

* * 

MARKER 


...X* VALUE IN ET1 ♦.... 

X*AOCONS REQUIRED^.... 

X* COUNTER *.. 

. . X+ B2 ♦ 


* 

♦ OF CONTAINING ♦ 

* FROM ESTIMATE * 

* TO ZERO ♦ 

X ♦ ♦ 

*• . * 


* PROC ( IF ANY) ♦ 

♦OF SIZE IN ET1 ♦ 

* * 

. **** 

*. „* 


***************** 

***************** 

***************** 


* NO 

X 






• *. 


I LOO 1 1 




DI *. 


*****D 2*** ******* 

*****03********** 

*****04********** 


* * 


♦ PLACE TOTAL ♦ 

♦ ADD SIZE OF * 

♦ RESTORE « 


END OF 

♦. YES 

♦ SIZE OF PROC * 

* PROCEDURE TO ♦ 

* LOCATION ♦ 


PROCEDURE 


...XF IN LOCN1 SLOT ♦.... 

. . . . X* CURRENT TOTAL *.... 

....X^ COUNTER FROM ♦. 


MARKER 

* 

* OF * 

♦ PROGRAM SIZE ♦ 

♦ ET1 OF CONT A I N-* 

X 

*, . * 


♦ ENTRY TYPE 1 ♦ 

* * 

♦ ING PROCEDURE ♦ 


*. • * 


***************** 

***************** 

***************** 


* NO 

X 






.*• 


I LOO 1 5 




El *. 


*****£2********** 

*****£ 3********** 

*****£ 4* ********* 


* * 


* PLACE SIZE ♦ 

♦ RESET LOCN ♦ 

* SET PROLOGUE ♦ 


PLBS 

♦ . YES 

♦ OF PROCEDURE ♦ 

* COUNTER TO ♦ 

♦ SWITCH ♦ 


OR 

• *••••« 

...X* SO FAR IN ♦.... 

• • . • X*ZERO PLUS SPAC £♦.... 

....X* ON (PLBS) ♦.. 


PCBS 

* 

♦LOCN2 OR LOCN3 ♦ 

♦FOR ADDRESSING ♦ 

* OR * 


* . , * 


* SLOT OF ET1 ♦ 

♦ ADCONS ♦ 

♦ OFF (PCBS) ♦ 


*. .* 


***************** 

***************** 

***************** 



* NO 


X 

FI ♦ . 

. * ♦ . 
.♦NON-BRANCH ♦ . YES 
♦ . MACHINE .♦... 
♦ . INST .* 

*. . ♦ 

*. .♦ 

♦ NO 


IL00I4 

<c##**F2********** 

* A00 LENGTH OF * 

* INSTRUCTION * 
..X* TO LOCATION ♦ .. 

* COUNTER * 


****************** 


. ♦ ♦♦♦ 

X * * 

.X* B2 * 
* * 

**** 


• * 


G1 


*. 


BRANCH *• YES * 

♦ •OR LOAD ADOR X* 

*. INST .* * 

* • . * 

♦ . .* 

♦ NO 


IL0020 

***#*02 ********** 

♦ DETERMINE * 

♦ AMOUNT OF * 

CODE NEEDED *. 

* TO PERFORM * 

* OPERATION * 

***************** 


♦****G 3 ********** 

♦ADD TO LOCATION* 

* COUNTER AND ♦ 

► X* SET IN THE *. 

* PRECEDING ADR * 

* PSEUDO-CODE * 
***************** 


X 

.♦. 

HI *. 

. * *. 

•* *. YES 

♦. LABEL .♦••• 
♦ • .* 

*• •* 

*. .♦ 

* NO 


IL00I9 

*****H2 ********** 

* ASSIGN THE * 

* CURRENT * 

..X* LOCATION *• 

* COUNTER VALUE * 

* AS OFFSET * 
***************** 


**** 

* * 

X* B2 * 
* * 

**** 


X 

**** 

* * 

* A3 * 

* * 
**** 
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Chart TJ. Phase TJ Overall Logic Diagram 


ILOOOO X 

*****A1**** ****** 


♦INITIALIZATION * 
* * 
♦ * 
***************** 


**** .* *. 

* * NO .* END *. 

* D2 *X. • . .*. OF 

* * *. PROGRAM .* 

**** *. .* 

*. . * 

* YES 


*****B3********** 


* RELEASE THE * 

* CURRENT TEXT * 

* BLOCK * 

* * 
***************** 


OPTIMA X 

*****£1********** 
♦GET FIRST TEXT * 

* BLOCK. SET * 

* LOCN COUNTER *X 

* AND PROGRAM * 

* SIZE TO ZERO * 
***************** 


I L0003 X 

***** 01 ********** 

* GET BRANCH * 

* LIST INDEX * 

* FROM TABLE 1 *X 

* USING CURRENT * 

* OP CODE * 
***************** 


. ♦ . 

El ♦ . 

.* *. 

.♦ ♦ . YES 

♦ . PROCEDURE .*.... 
♦ . MARKER .♦ 


****#C2*1‘*<'****** 


***************** 


**** . 

IL0024 X 

*****02********** 

* GET LENGTH * 

* OF CURRENT * 

ITEM FROM *X. 

* TABLE 2. BUMP * 

* INPUT POINTER * 
***************** 


I LOO 10 

****»E2** ******** 

* IF SCANNING * 

* CURRENT PROC * 
...X* SAVE LOCN CTR ♦ . 

♦VALUE IN L0CN1 * 

* SLOT * 

♦♦♦4* ♦♦♦♦*#♦ *4*4 4 


*#***03********** 

* SUSPEND SCAN * 
♦FOR OTHER THAN ♦ 

.* PROC* AND END * 

* OF TEXT BLOCK * 

* * 
***************** 


.♦ IS ♦. 

.♦ OPTA ♦. YES 
.X*. FLAG ON IN ...... 

♦. NEW ET1 .♦ 


.♦ ♦. 

.♦ END OF ♦. YES 
♦. PROCEDURE ...... 

♦. MARKER .* 


IL0011 

4**4 *F 2444******* 

♦ IF SCANNING * 

♦ CURRENT PROC, ♦ 
...X* UPDATE PROC *. 

♦ SIZE IN L0CN1 ♦ 

♦ SLOT ♦ 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


♦ ♦♦♦♦F 3 ♦*♦♦**♦♦*♦ 

♦ IF OPTB FLAG ♦ 

♦ ON, SET OPTA ♦ 

. X* ON AND RESET ♦. 

♦ OPTB * 

4 ♦ 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦» 


IL1001 

44444F4********** 

♦ EVALUATE NEW ♦ 

♦ ADCON NEEOS • « 

. . . X*SET LOCN COUNT ♦... 

♦ TO ZERO ♦ 


***************** 


IL1101 

4*4*4F4******4*4# 

♦ RESTORE * 

♦ CONTEXT OF ♦ 

, . .X* CONTAINING ♦. 

♦ PROCEDURE ♦ 


***************** 


. ♦. 

G1 ♦. 

.♦ MACH. *. 

.♦INST, PLBS,*. YES 
♦.PCBS, END OF ...... 

♦ . BLOCK .* 

♦. . * 


♦ ALL TREATED « 
. X* IN SAME WAY * 

♦ AS IN IEMTF * 

♦ * 
***************** 


.♦. 

HI ♦. 

. * *. 

.♦ ♦. YES 

♦. LABEL ...... 

*. .* 

♦ . .♦ 

♦. .♦ 

♦ NO 


♦ ASSIGN NEW ♦ 

X* OFFSET TO ♦. 

♦ LABEL ♦ 

♦ * 
***************** 


IL2006 .♦. 

H3 ♦. 

.* ♦. 

.♦ CHANGE ♦. YES 
, . . X*. FROM > 4096 ...... 

♦.TO < 4096. ♦ 

*. . ♦ 

♦. .* 

♦ NO 


44444H4 * ********* 

♦ SET OPTB ON ♦ ♦♦♦♦ 

♦ IN ET1 OF ♦ ♦ ♦ 

.X* CURRENT PROC. ♦....X* D2 ♦ 

♦ SET REPEAT ♦ ♦ ♦ 

♦ SWITCH ♦ ♦«♦♦ 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


X 

. *. 

J1 ♦. 

.♦ *. 

.♦ ♦. YES 

♦. MVC ...... 


♦ . .* 

*. .♦ 

♦ NO 


IL0027 

44444 J2 444*4*44 4* 

♦ IF PREVIOUS * 

♦ INST WAS MVC, ♦ 
,..X* ATTEMPT TO * 

♦ COMPRESS ♦ 


***************** 
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Chart TO. Phase TO Overall Logic Diagram 


***** 
♦TO ♦ 
♦ Al* 

4c * 


l********** 
* * 

♦ GENERATE BASE * 

♦ FOR ESO ENTRY * 

♦ NAMES ♦ 

♦ ♦ 
*** * *♦**♦♦♦ ****** 


l ********** 

* PRODUCE ENTRY * 

* CARD IF * 

* EXTERNAL PROC * 

* HAS 'MAIN* * 

* OPTION * 

***************** 


* MAKE 6 * 

* STANDARD * 

* ESO ENTRIES * 

* * 
***************** 


***** 01 ********** 
♦MAKE SD TYPE E * 

* ENTRY FOR * 
♦THE MAIN CSECT * 

* I F EXT PROC HAS* 

* 'MAIN* OPTION * 
***************** 


LGOOI 

****♦£! ********** 

* MAKE LD TYPE * 

♦entry for names* 

*0F ALL ENTRIES * 
♦TO THE EXTERNAL* 

* PROC * 

***************** 


LGG30 X 

**#**F1 ********** 

* MAKE PR TYPE * 
♦ENTRY FOR DISP * 

* P.R. OF EACH * 

* BLOCK IN THE * 

* COMPILATION * 
***************** 


LG050 X 

***** 51 ********** 

* SCAN * 

* EXTERNAL * 

..X* SECTION OF * 

* STATIC CHAIN * 

* * 
***************** 


* SCAN * 

* CONTROLLED *. 

* CHAIN * 

* * 
***************** 


♦I* FILE 


♦ . NO 
• ♦ • • • 

. ♦ 


. .* 
*. . ♦ 

♦ YES 


*****j\********** 
* * 

♦ MAKE SD ♦ 

♦ AND PR * 

♦ TYPE ENTRIES * 

♦ * 
***************** 


.* *. 

.* EXTERNAL *. NO 
.X*. VARIABLE OR .*. .. 
♦.CONDITION.* 
♦.NAME .* 

*. .* 

* YES 


*****J2********** 


***************** 


. * 


H3 


*. 


.* EXTERNAL *. 
.X*. ENTRY NAME OR.* 
♦.FUNCTION .* 

*. . * 

*. . * 

* YES 


*****J3********** 


***************** 


. *. 

G4 *. 

.* DICE *. 
.* ENTRY FOR « 
.X*. DECLARED 

♦.VARIABLE .< 

*. . * 

*. .* 

* NO 


HA *. 

.* DICT *. 

.* ENTRY FOR *. YES 
*. CONTROLLED .*.... 
*. TEMP .* 

*. . * 

*. . * 

* NO 


.* DICT *. K 
. ENTRY FOR .*. 
ALLOCATION OF 
VARIABLE* 


*****55********** 


***************** 


***** 
*TT * 
* Al* 
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Chart TT. Phase TT Overall Logic Diagram 


♦INITIALIZATION * 

♦ SET SWITCHES * 
♦FOR PUNCH/LOAD * 

♦ OPTIONS * 

♦ & 
4c$$X'*******#*#$£$ 


IL0003 X 

**** *B1 ********** 


***************** 


.* END OF *. YES 
*. PROCEDURE .*.... 
*. MARKER .* 


.* MACHINE *• YES 
*. INSTRUCTION .*.«♦. 
*. .* 

*« . * 

*. .* 

* NO 


NO END OF *. YES 

...*. PROGRAM .*.... 


IL0G02 X 

*****B2*** ******* 

* GET LENGTH OF * 

* CURRENT ITEM * 
,...* FROM TABLE 2. * 

* BUMP * 

* INPUT POINTER * 
***************** 


ILOOIO 

*****C2********** 

* SAVE CURRENT * 

* LOCN CTR IN * 
..X* LOCN1 SLOT OF *. 

* CONTAINING * 

* PROCEDURE ET1 * 
***************** 


«****C 3********** 
*LOCN5 = PROCLN * 
*PROCLC = PROCLN* 
.X*PROCLN = PROCLC*. 

* + LENGTH OF 1 * 

* PROC(LOCNI) * 
***************** 


IL003 

******Q4*********** 
SET CURRENT 
* LOCATION * 
,..X COUNTER VALUE .. 
TO ZERO. CLEAR* 
TEXT BUFFER 
************* 


iloou 

****** 02 *********** 

CLEAR 

* TEXT BUFFER. * 
...X RESTORE LOCN 

♦COUNTER FROM * 
L0CN1 IN ET1 
************* 


IL0015, 

I LOO 1 6 

*****£ 2 ********** 

* UPDATE PROCLC * 
*BY ADDING LOCN * 

. ..X* COUNTER AND *. 

* ROUNDING UP * 

* TO FULL WORD * 
***************** 


***** 03 ********** 

♦RESTORE PROCLC * ****** 

.X* FROM L0CN5 * *....X* B2 * 

* L0CN3 IN ETI * X * * 

$*£***$$$$*$*$*** „ 


GENTXT 

*****£3********** 

* GENERATE TEXT * 

* AND RLD FOR * 
...X* THE REQUIRED *. 

* NUMBER OF * 

* ADCONS * 
***************** 


GENTXT 

p 2 ♦♦♦♦♦♦*♦♦ ♦ 

* GENERATE * 

* TEXT AND RLD * 
...X* INFORMATION *. 

* AND PLACE IN * 

* TEXT BUFFER * 
***************** 


**♦***♦♦**♦*♦***« 


*****H 3 ********** 

* * 

* MARK CURRENT * 
.X* TEXT BLOCK *. 

* UNWANTED * 

***************** 
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Chart UA. Phase UA Overall Logic Diagram 


*****A3********** 


♦INITIALIZATION ♦. 


♦♦♦♦♦♦♦♦*♦♦♦♦♦♦♦♦ 


♦ ADDRESS * 

♦ CONSTANT *X 

♦ INITIALIZATION * 

♦ ♦ 
♦♦♦♦♦**♦*♦♦♦♦♦♦** 


.♦ END OF ♦. YES 
,X*. THIS PART ...... 

*. OF SCAN .* 


*****£}********** 


* GET NEXT ITEM *X. 


E 2 *. 

• * *«• 

NO .* DOES ♦. 

ITEM NEED .♦ 
♦ . ADCON .* 

*• . * 


*****P2*** ******* 

* TXTMQV* 

*_*_*_*_*_*_*_*_* 


* PROCESS ITEM 


***************** 


* GET NEXT ITEM *X. 


***************** 


. ♦. 

83 ♦ . 

• * *. 

YES .* END OF ♦ . 

CHAIN .♦X. 

♦ . .♦ 

*. •* 


UAOI4 

*****03********** 

* T XTMOV* 

*—*—*—*_*_ *-*—*—* 
...X+ PROCESS ♦ 
♦CONSTANTS POOL * 


$#***********♦♦♦♦ 


.♦ END OF 
*. STATIC 
*. CHAIN • 
*. . * 
*. .* 

* NO 


.♦ GET NEXT ITEM *X. 


. YES 

X407 .♦. 

C4 ♦ . 
.♦SIMPLE ♦. 

.♦ DATA ♦. 
.X*. VARIABLE 

♦.OR LABEL .♦ 

♦• .♦ 


***************** 


END OF ♦. YES 

STATIC ...... 

CHAIN .♦ 


***************** 


YES .* ARRAY OR ♦. 
....*. STRUCTURE 

* . .* 


*****£ 5* ********* 

♦ TXTMOV* 
*-*-*-*-*-*-*-*-* 

<* * 

♦ PROCESS I TFM ♦ 

♦ * 
***************** 


****P5 ********* 


*************** 


*****p 5* ********* 


****************4 


******35*********** 


****H 5* ******** 


*************** 


UAUd5 * 

UA0215, 

UA080 X 

*****J3********** 

♦ T XTMOV* 

*_*—*—*_*—*_*_*_* 

’***♦ PROCESS ITEM ♦ 


***************** 
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***************** 


YES .* END *. 

OF CHAIN .*X. 

*. .* 

** ♦ * 

*. . * 

* NO 


***************** 


***************** 


.* SIMPLE *• YES * * 

• X** DAT A VARIABLE.* X* PROCESS ITEM * 

♦•OR LABEL .* * * 

* * * * * ♦ 

** .* ***************** 


*****E1********** 


♦ GET NEXT ITEM 


***************** 


.* END OF *. YES 
,X*.THIS PART OF .*•••• 
*. SCAN .* 

*. .* 

*. . * 

♦ NO 


E2 *«. 

.* DOES *. 

NO .* ITEM *. 
...*. NEED DOPE . 
*. VFCTOR .* 
*. # * 

*. # * 

* YES 


*****F2*** ******* 


***************** 


,* GET NEXT ITEM *X. 


.* PROCESS ITEM * 


***************** 


***************** 


***************** 


*****j3********** 


***************** 


***** j 5********** 


.X* PROCESS ITEM * 


***************** 


***************** 
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Phase UF Overall Logic Diagram 


***** 
*UF * 
* Al* 


♦INITIALIZATION.* 
♦TRANSLATE TEXT * 
♦TO EXTERN COOE ♦ 
♦ * 
***************** 


IL0003 

*****B1*******»* 

* GET BRANCH 

* LIST INDEX 

* FROM TABLE 1 

* USING CURRENT * 

* OP CODE * 
***************** 


**** 

> * 

* B2 * 
> >> 

* * 


*x. 


IL0H02 X 

*#***B2 ********** 

* GET LENGTH OF * 

* CURRENT ITEM * 
. ...* FROM TABLE 2. * 

* BUMP * 

* INPUT POINTER * 
***************** 


ILOOIO 

*****£ 2 ********** 

* SAVE CURRENT * 

* LOCN CTR IN * 
,..X* LOCN1 SLOT OF *. 

* CONTAINING * 

* PROCEDURE ET1 * 
***************** 


***»*C 3 ********** 

* SET LOCN CTR * 

* TO ZERO AND * 
,X*PROCLC (COUNTER*. 

* BASE) FROM * 

* LOCN5 IN ET1 * 
***************** 


I LOO 3 

******£ a*********** 
PRINT 

* * PROCEDURE * 

,..X FOLLOWED BY 

* ENTRY NAMES * 
AND STAT NO. 
************* 


• *. 

D1 *. 

. * *. 

.* END OF *. 
*. PROCEDURE . 
*. MARKER .* 

* . . * 

*. .* 

* NO 


aeon 

*****#D2 *********** 
PRINT * END 
* PROCEDURE AND * 
...X ENTRY NAMES 

*AND STATEMENT* 
NUMBER 

************* 


IL0015, 

I LOO 16 

******E2*********** 

PRINT PROLOGUE 


. .* 
*• • * 

* NO 


.* MACHINE *. YES 
*. INSTRUCTION .*.... 
*. .* 

*. .* 


PROCEDURE BASE. 
* SET * 
LOCN CTR = 0 
************* 


ILOO 12, ILOC 13* 

ILOOIA, IL002D, 

IL0026, IL0027, 

I LOO 2 8 , I L0032 

*****F2********** 
•SET UP LOCATION* 

* COUNTER AND * 
...X* MNEMONIC AND *. 

* HEX OP CODES * 

* IN BUFFER * 
***************** 


***** 93 ********** 

* RESTORE LOCN * **** 

* COUNTER FROM * * * 

.X* LOCN1 AND *....X* B2 * 

* PROCLC FROM * X * * 

* L0CN3 + LOCNS * . **** 

***************** 


PRI NIT 

******£ 3 *********** 

PRINT LIST 
* OF ADCONS * 

. ..X GENERATED 

FOR ADDRESSING* 
PURPOSES 
************* 


I L 2005 
NM0003 

*****F 3 ********** 

* IDENTIFY * 

* OPERANDS AND * 
...X* EXPRESS IN *. 

♦TERMS OF SOURCE* 

* IDENTIFIERS * 
***************** 


******p a* ********** 

PRINT LINE 
* AND * 

.X INCREMENT 
* LOCATION * 
COUNTER 
************* 


. * 


G 1 


*. 


.* LABEL *. YES 
*.0R STATEMENT .*.... 
*. NUMBER .* 

*. . * 

*. .* 

* NO 


IL0018, 

IL0019 

******92*********** 
PRINT STATEMENT 
* NUMBER * 

...X AND ANY LABEL .. 
* IDENTIFIERS * 


************* 


. *. 

HI *. 

. * *. 

.* END OF *. YES 
*. PROGRAM .*.... 
*. / •* 

M . A 


•PRINT LINE WITH* 
.X OPERATION 
♦MNEMONIC END * 

************* 
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Chart XA. Phase XA Overall Logic Diagram 


***** 

♦ XA * 

* Al* 
* * 


*****A1**** ****** 


***************** 


XA01 

#****A2 ********** 

* ESTABLISH * 

* LEVEL OF * 

...X* DIAGNOSTIC * 

* PRINT OUT * 


***************** 


XA1 

YES 


X 

. *. 

B2 *. 

.* ANY *. 

ENTRIES *. NO 
*. TO BE .*... 

♦.PROCESSED.* 


XA2 

**** **B 3***** ***♦♦ * 


*. 


♦****C1 ********** 

* LOAD * 

* MESSAGE * 

* ADDRESS *. 

* BLOCK * 

* * 
***************** 


*. . * 


*****C2********** 

* * 

* SCAN * 

<* MESSAGE *. 

* CHAINS * 

* * 
***************** 


************* 


*****£ 3 ********** 
MAKE UP ♦ 

LIST OF * 

BLOCKS *. 

NEEDED * 

* * 

***************** 


X 

***** 
* AA * 
* K3* 


. X* 


*****CA********** 

* RELEASE * 

* MESSAGE * 

•X* ADDRESS * 

* BLOCK * 

* * 
***************** 


**** 

* * 

* 04 ♦ . X 

* * 

♦ ♦♦* x 

04 

NO .♦* 


*. 


**#** * E1 ********** 

♦ GET TO ♦ 

* HEAD OF *. 

* CHAIN * 

♦ ♦ 
*********** 


* LOAD * 

<* NEXT *. 

* BLOCK * 

* # 
***************** 


ALL *. YES 
ENTRIES ...... 

♦.PROCESSED.* 

*. . * 


XA12A 

4c *****£ 4 .********#*# 

PRINT OUT 
* APPROPRIATE * 
..•X SEVERITY 

* HEADER * 


************* 


***** 
*AA * 
* K3* 


* GET TO 
..X* NEXT ENTRY 

* IN CHAIN 

* 

**<<!{* *f*=C£******4 


• * • 

G2 *. 

.* IS *. 

.* SKELETON *. NO 
•X*. IN CURRENT .*... 
*. BLOCK .* 

#. . * 

* . 9 * 

* YES 


*****^2 ********** 

* MESSAGE * 

* NUMBER * 

* TO PRINT *. 

* BUFFER * 


END 

OF 

. CHAIN 

*. . * 


, **** 
*. YES * * 

.*.... X* 04 * 


&**************** 


H3 *. 

.* HAS *. 

* IT GOT *. YES 
A STATEMENT .*.... 
». NUMBER .* 

*. . * 

*. .* 

* NO 


*****H4********** 

* STATEMENT * 

* NUMBER * 

<* TO PRINT * 

* BUFFER * 

* * 
***************** 


* ACCESS * 

* MESSAGE *. 

* SKELETON * 

* * 

***************** 


*****J2********** 

* SCAN * 

K* MESSAGE *. 

* SKELETON * 

* * 
***************** 


. X* 


♦ ♦♦J ♦♦♦♦♦* 

BUILD * 
MESSAGE * 
TEXT IN *. 

♦ PRINT * 

♦ BUFFER ♦ 

***************** 


PUT OUT 
DIAGNOSTIC 
> MESSAGE * 

************* 


K4 


. * . 


**** 


WAS *. 

NO .* THIS *. YES 
...*. LAST ENTRY .*....X* DA * 
♦.IN CHAIN .♦ ♦ * 

*« , * **** 
fc, . * 
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Table TA. 

r 


Phase TA Final Assembly DCLCB Generation 


T T' 

|Main Processing! 
j Routine | 


Statement or Operation Type 


Subroutines Used 


•+ 

(IL0110, IL0120 

•+ 

| CHKATT, IHEENV 


Scans STATIC chain 


IL0100 


Generates DECLARE control block j IL0110 
entry | 


Generates OPEN control block entry | IL0120 


CHKATT 


Generates INCLUDE cards 


IL0200 


| IHEINC, PUNCH 

.i. 


Table TA1. Phase TA Routine/Subroutine Directory 


r *r 

| Routine/Subroutine | 


Function 


j CHKATT 


| Checks attributes and creates control words. 

| 


| IHEENV 

(TB) 

1 

(Checks environment options, and inserts them into DECLARE control 
j blocks. 

i 


j IHEINC 

(TC) 

1 

| Creates string of module names for inclusion in control blocks. 


| IL0000 


1 

| Entry point from compiler control. 

i 


| IL0100 


1 

| Scans STATIC chain 

1 


1 IL0110 


1 

(Generates DECLARE control block entry. 


| IL0114 


1 

|Test point for environment entry. 

i 


J IL0115 


1 

| Return point from environment processing. 

i 


| IL0117 


1 

(Processes file attributes entry. 

i 


J IL0118 


1 

(Branch point of SYSPRINT file found. 


| IL0120 


1 

(Generates OPEN control block entry. 


| IL0200 


1 

(Generates INCLUDE cards. 

i 


j IL0201 


1 

(Return point in INCLUDE card output routine. 

i 


| IL0206 


1 

j Tests MAIN flag. 

i 


| IL0207 


1 

(Releases control. 

| 


| PUNCH 


1 

| Punches cards 
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Table TF. Phase TF Final Assembly Pass 1 
r t 


Statement or Operation Type 

|Main Processing 
| Routine 

j 

1 

-L 

Subroutines Used 

Scans text 

| IL0024 

T 

| None 

-j. 


Assigns offsets to labels 

j ILO 019 

j _ _ 

|fine21, 

l 

NEXTSL 

Increments location counter for 
machine instructions 

\ IL0014 

1 

-j- 

t 

| None 

1 

-j. 


Determines code for instructions 
which refer to labels 

1 IL0020 

1 

| 

| FINEQl 

1 

J. 


Initializes location counter at 
start of procedure 

1 ILO 010 

1 

-j- 

T 

| None 

i 

J. 


Stores size of procedure and 
resumes containing procedure 

jlLOOll 

1 

_ j. 

t 

|None 

i 

X 



■H 


Table TF1. Phase TF Routine/Subroutine Directory 

Function 

Locates label number table entries, 

Entry point from compiler control. 

Entry point to scan from initialization routine. 
Initializes location counter at start of procedure. 

Stores size of procedure and resumes containing procedure. 
Increments location counter for machine instructions. 
Processes the start of prologues. 

Releases control. 

Assigns offsets to labels. 

[Determines code for instructions which refer to labels. 
Processes end-of-block pseudo-code item. 

Scans text. 

Determines multiple statement label entries in dictionary. 


r T 1 

| Routine/Subroutine | 

V + i 

FINEQl 
ILOOOO 
IL0003 
IL0010 
IL0011 
IL0014 
IL0015 
IL0017 
IL0019 
IL0020 
IL0022 
IL0024 
NEXTSL 

l X J 
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Table TJ. Phase TJ Final Assembly Optimization 

r t t 

Main Processing 

Statement or Operation Type I Routine 


Subroutines Used 


Controls phase 

jlLOOOO 

j OPTIMA 


Maintains location counter for 
machine instructions 

| ... ......... 

j IL0014 

1 

j 

j None 

j 


Assigns offsets to labels 

| IL0019 
j- 

j COMRTN, 

1 

FINEQl, NEXTSL 

Determines code for instructions 
which refer to labels 

| IL0020 

1 

T 

| FINEQl 

1 


Initialize location counter at 
start of procedure 

| . ... _ 

J IL0010 
! 

1 

| None 

i 

i 

i 


Stores size of procedure for 
machine instructions 

1 

| IL0011 

1 

j _ ....... 

1 

| None 

J 


Reduces number of MVC instructions 

j IL0027 

4_ 

| OFFSET, 

j. 

OSMRTN 

Determines offset from a given 
dictionary reference 

T 

j OFFSET 

1 

-J. 

T 

| None 

1 



Table TJ1. Phase TJ Routine/subroutine Directory 


r T * 

| Routine/Subroutine | 

I" 


Function 


COMRTN 

FINEQl 

IL0000 

IL0003 

IL0010 

IL0011 

IL0012 

IL0014 

IL0019 

IL0020 

IL0024 

IL0027 

IL1001 

I LI 101 

NEXTSL 

OFFSET (TK) 

OPTIMA 

OSMRTN 


Determines whether further optimization is possible. 
Locates label number table entries. 

Controls phase. 

Entry point to scan loop from initialization. 

Initializes location counter at start of procedure. 

Stores size of procedure and resumes containing procedure. 
Processes machine instructions, etc- 
Maintains location counter for machine instructions. 
Assigns offsets to labels. 

Determines code for instructions which refer to labels. 
Gets pseudo-code item length and updates text pointer. 
Elides MVC instructions. 

Evaluates new ADCON needs. Sets location counter to zero. 
Restores content of containing procedure. 

Looks for equivalent statement labels. 

Determines offset from a given dictionary reference. 

Scans text. 

Scans ahead for literal offsets. 
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Table TO. Phase TO Final Assembly External Symbol Dictionary 


r ~ 

1 

j Statement or Operation Type 

1 . - _ 

T 

(Main Processing 
| Routine 

T 

1 

Subroutines Used 

r ■*- — — 

(Constructs first six standard ESD 

j entries 

j LG401 

1 

j MOVE, 

1 

NAME, 

ERROR 

j. — - *- — 

| Constructs entries for external 
| procedure labels 

1 

1 LG001 

1 

-L 

|MOVE, 

1 

J. 

ERROR 


r t 

(Constructs PR type entries for each|LG030 
( block and procedure | 

1 _L 

T 

| MOVE , 

1 

1 - - - 

NAME 


r 

(Constructs entries for external 
j variables and external entry names 

I 

| LG050 

1 

.j.. . 

('move, 

1 

-1- 

ERROR 


r 

| Constructs entries for controlled 
j variables and task names 

| LG090 

1 

T 

|MOVE, 

i 

NAME, 

error 


L X X J 


Table T01. Phase TO Routine/Subroutine Directory 


r t- 

I ROUTINE/SUBROUTINE I 


FUNCTION 




ERROR 

LG001 

LG030 

LG050 

LG 0 5 5 

LG080 

LG085 

LG090 

LG093 

LG401 

MOVE 

NAME 


Truncates over-length external identifier, generates error message. 
Constructs entries for external procedure labels. 

Constructs PR type entries for each block and procedure. 

Constructs entries for external variables and external entry names. 
Processes ON-conditions and external variables. 

Processes external entry names. 

Processes FILE constants. 

Constructs entries for controlled variables and task names. 

Inserts name in ESD entry for CONTROLLED. 

Constructs first six standard ESD entries. 

Moves ESD entries to card buffers, and puts out buffer when full. 
Generates names for pseudo-registers. 
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Table TT. Phase TT Final Assembly Pass 2 


Statement or Operation Type 


Main Processing 
Routine 


Subroutines used 


Scans text 

| IL0002 

j None 

.j-.. . 



Generates text for RR instructions 

| IL0012 

-.j- 

j GENTXT 

X 



Generates Text for RX non-branch 
instructions LM, STM, and SI Types 

j IL0013 

1 

--j- 

1 

| EOBRTN, 

1 

X 

GENTXT, 

OFFSET 

Generates text for shift instruc- 
tions 

| IL0027 

1 

T 

J GENTXT 

1 

L 



Generates Text for ss instructions 

| 

l' IL0014 

-.j. __ .. 

T 

| EOBRTN, 

-1- 

GENTXT, 

OFFSET 

Sets up trace information and num- 
bers compiler labels 

j IL0019 

1 

1 

| GENTXT 

1 



Generates text for branch and load 
address instructions 

_j_ _ 

| IL0020 

1 

.j. . ... . .. 

i'fineqi, 

1 

x . 

GENTXT,, 

OFFSET 

Initializes location counter at 
start of procedure 

| IL0010 

I 

.X 

T 

| PUNCHT 

i 



T 

Resumes containing procedure at endJILOOll 
of procedure | 

X 

{PUNCHT 

1 



Moves Text into card image 

T 

J GENTXT 

-4- 

j PUNCHT 

X 



Punches cards ensuring that RLD 
cards follow related TXT card 

1 

| PUNCHT 

1 

1 

| CARDOU 

1 
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Table TT1. Phase TT Routine/ Subroutine Directory 


r t 

j Routine/Subroutine j 

I- 1 

CARDOCJ 
EOBRTN 
FINEQ1 
GENTXT 
IL0002 
IL0003 
IL0010 
IL0011 
IL0012 
IL0013 

IL0014 
IL0015 
IL0016 
IL0017 
IL0019 
IL0020 
IL0022 
IL0027 
OFFSET (TU) 

PUNCHT 


Function 

Directs card image to load file or punch file. 

Chains to next input text block. 

Locates label number table entries. 

Moves text into card image. 

Scans text. 

Entry point to scan from initialization routines. 

Initializes location counter at start of procedure. 

Resumes containing procedure at end of procedure. 

Generates text for RR instructions. 

Generates text for RX non-branch branch instructions, LM, STM, and 
SI type. 

Generates text for SS instructions. 

Processes the start of prologues. 

Processes the end of prologues. 

End-of-text routine. 

Sets up trace information and numbers compiler labels. 

Generates text for branch and load address instructions. 

End-of- block routine. 

Generates text for shift instructions. 

Determines offset and relocation pointer from given dictionary ref- 
erence. 

Punches cards ensuring that RLD cards follow related TXT card. 
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Table UA. Phase UA Final Assembly Initial Values, Pass 1 


T T 

Main Processing 
Routine 


Statement or Operation Type 


+- 




Subroutines Used 


Scans STATIC chain to beginning of 
external section 


UA001 


UA200, UA220, UA230 


Initializes scalar variables 


UA200 


TXTMOV 


Initializes BCD for label 


UA220 

UA230 


RLDMOV, TXTMOV 


Initializes DED for temporary 


TXTMOV 


Initializes address constants. 


UA010 

UA080 

UA403 


UA401, UA403, UA404, UA405, UA406 


initializes symbol table entries 


RLDMOV, TXTMOV 
RLDMOV, TXTMOV 


Initializes address slots for 
external variables 


Initializes address slots for func- 
tions and programmer-defined ON- 
condition names 


UA401 


RLDMOV, TXTMOV 


Initializes address slots for label 
constants 


UA404 


RLDMOV, TXTMOV 


-+- 


Initializes address slots for entry 
labels 


UA405 


RLDMOV, TXTMOV 




Initializes file attribute entries 
and files 


UA406 


RLDMOV, TXTMOV 


Initializes constants pool 


-+ 


UA014 

UA021 

UA025 


RLDMOV, TXTMOV 


Initializes dope vector skeletons 


TXTMOV 




Initializes argument lists 


RLDMOV, TXTMOV 
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r t- 

| Routine/Subroutine | 

I- 


Table UA1. Phase UA Routine/Subroutine Directory 

Function 

Moves card images to punch and/or load file. 

Moves RLD entries to card buffer. 

Moves TXT entries to card buffer 
Entry point from compiler control. 

Scans STATIC chain to start of external section, to initialize 
scalar variables. 

Return point for branches taken in first scan. 

Initializes address constants. 

Return point for branches taken in second scan. 

Initializes constants pool. 

Initializes dope vector skeletons. 

Produces text for dope vector skeleton. 

Initializes argument lists. 

Return point for branches taken in last scan. 

Initializes symbol table entries, 
initializes one-word CSECT ' IHEMAIN' . 

Exit from UA to compiler control and UD. 

Initializes scalar variables. 

Initializes BCD for label. 

Entry to label routines for label variable BCDs. 

Initializes DED and FED for temporary. 

Initializes address slots for functions and programmer- defined 0N- 
condition names. 

Initializes address slots for external variables. 

Initializes address slots for label constants. 

Initializes address slots for entry labels. 

Initializes DECLARE control blocks for files and file attributes 
entries. 

Makes text for file attributes entry. 

Initializes array variables. 

Initializes arrays of varying strings. 

Initializes bit arrays. 

Completes packing of bit strings in structures or arrays. 


OUTPUT 

(UB) 

RLDMOV 

(UB) 

TXTMOV 

(UB) 

UA0000 


UA001 


UA0015 


UA010 


UA013 


UA014 

(UC) 

UA021 


UA0215 

(UC) 

UA025 


UA033 


UA080 

(UC) 

UA100 

(UC) 

UA100A 


UA200 


UA220 

(UC) 

UA225 

(UC) 

UA230 

(UC) 

UA401 


UA403 


UA404 


UA405 


UA406 


UA407 


UCINIT 

(UC) 

UCUPDT 

(UC) 

UC0080 

(UC) 

TIDY (UC) 
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Table UD. 
r 


Phase UD Final Assembly Initial Values, Pass 2 


T T 

Main Processing 
Routine 


Statement or Operation Type 


4 - 


+- 


Subroutines Used 


Scans STATIC chain to beginning of 
external section 


UA001 


UA200, UA220 , UA230 


Initializes scalar variables 


UA200 


TXTMOV (UB) 


+- 


Scans STATIC chain to initialize 
internal dope vectors 


UA003 


UA300, UA320, UA340, UA360, UA365 


Initializes dope vectors for 
internal strings 


UA300 


RLDMOV (UB) , TXTMOV (UB) 


+- 


Initializes dope vectors for inter- 
nal data arrays 


UA320 


RLDMOV (UB), TXTMOV (UB) 


Initializes dope vectors for arrays 
of varying strings 


UA340 


TXTMOV (UB) , UCUPDT (UC) 


Initializes dope vectors for inter- 
nal label arrays 


UA360 


RLDMOV (UB), TXTMOV (UB) 


+- 


Initializes dope vectors for inter- 
nal structures 


UA365 


UA300, UA320, UA360 


4 - 


+- 


Initializes arrays 


UA030 


RLDMOV (UB), TXTMOV (UB), 
UCINIT (UC) 


Initializes structures 


UA040 


TXTMOV (UB), UA200 , UC0800 (UC) , 
TIDY (UC) 


-H 


Initializes one word CSECT 
'IHEMAIN' 


UA100 


OUTPUT, RLDMOV, TXTMOV (all in UB) 


Initializes CSECT for STATIC 
external variables 


UA1005 


OUTPUT (UB), UA030 , UA200, UA300, 
UA320, UA360, UA365, UA401, UA406 




Makes up END card and terminates 
phase 


UA120 


OUTPUT (UB) 


4 1 

| TXTMOV (UB), UC0080 (UC), TIDY (UC) j 

-i J 


Initializes array variables 


| UCINIT (UC) 

.x 
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Table UDl. Phase UD Routine/Subroutine Directory 


r t* 

| Routine/Subroutine J 

h 


Function 


UAOOO 

UA001 

UA0015 

UA003 

UA021 

UA030 

UA031 

UA033 

UA034 

UA040 

UA100 (UC) 

UA105 

UA120 

UA200 

UA207 

UA300 

UA320 

UA340 

UA360 

UA365 

UA401 

UA406 

UA1005 


Entry point from UA and compiler control. 

Scans STATIC chain to start of external section* to initialize sca- 
lar variables. 

Return point for branches taken in first scan. 

Scans STATIC chain to initialize all dope vectors for internal vari- 
ables. 

Start of scan for arrays and structures. 

Initializes arrays. 

produces RLD entry for label array virtual origin. 

Return point for branches taken in array scan. 

Produces RLD entry for data array virtual origin. 

Initializes structures. 

Initializes IHEMAIN CSECT. 

Return point for branches taken in external scan. 

Makes up END card and terminates phase. 

Initializes scalar variables. 

Lists label variables. 

Initializes dope vectors for internal strings. 

Initializes dope vectors for internal data arrays. 

Initializes dope vectors for arrays of varying strings. 

Initializes dope vectors for internal label arrays. 

Initializes dope vectors for internal structures. 

Initializes address slots for functions and programmer- defined 0N- 
condition names. 

Initializes DECLARE control blocks for files and file attributes 
entries . 

Initializes CSECTs for STATIC external variables. 


282 




Table UF. Phase UF Final Assembly Object Listing 
r t 


Statement or Operation Type 

j Main Processing] 
j Routine | 

-X X 

Subroutines used 

Scans Text 

1 IL0002 

T 

| None 
.j 




Lists RR instructions 

1 IL0012 

j . . 

j PRINIT, 

RRRTN 



Lists RX non-branch instructions 

j IL0013 

1 

j _ 

1 

| EXRTN, 
j SECOND 

1 

PRINIT, 

PRNTOU, 

PRNTVF, 

Lists SS instructions 

1 IL0014 

+ 

] EOBRTN, 

PRINIT, 

PRNTOU, 

SSRTN 

Lists shift instructions 

j IL0026 

|PRINIT, 

PRNTOU, 

PRNTVF 


Lists LM and STM 

j 

j IL0027 

-X 

1 

JPRINIT, 

- 4 - 

PRNTOU, 

PRNTVF, 

SECOND 

Lists SI instructions 

1 

| IL0028 

1 

1 

j CHARVF, 

| SECOND, 

-_j_ 

PRINIT, 

SSRTN 

PRNTOU, 

PRNTVF 

Lists branch and load address 
instructions 

1 " 

j IL0020 

1 

j IL0013, 

| RRRTN 

NAMEIT, 

NAMEQU, 

PRINIT, 

Lists labels 

| 

| IL0019 

1 

| NAMEVF, 
(PRNTLC, 

. i _ . 

NEXTEL, 

PRNTOU, 

NEXTSL, 

PRNTVF, 

STATMN 

Lists procedure names 

j _ . 

| IL0010 

j 

T 

| NAMEVF, 

NEXTEL, 

PRNTOU, 

STATMN 

Lists ends of procedures 

| IL0011 
-4 

| NAMEVF, 
.4. 

NEXTEL, 

PRNTOU 


Scans ahead for literal offsets; 
inserts second instruction byte 
into print image 

T 

| SECOND 

1 

1 

1 

| EOBRTN 

1 

1 

.j. 




Generates listing of text for base 
offset pair 

J SSRTN, BXRTN 

1 

1 

| ABSOFF, 
j PRNTVF 

- 4 _ 

ADDEND, 

NAMEIT, 

NAMEQU, 

Names generated label number 

T 

| NAMEQU 

.X 

t 

j DECINT, 

i . 

FINEQl 



T 

Inserts location counter value, andjPRINIT 
hexadecimal and mnemonic operation j 
codes in print line j 

X 

T 

| PRNTLC 

1 

1 

.4 




Moves variable length item into 
variable field part of print line 

T 

| PRNTVF 

1 

. i. ... 

i 

| PRNTOU 

1 




Lists statement numbers 

1 • " 

j STATMN 

1 

j . . 

| STATNO 

1 




Determines name and offset from 
dictionary reference 

T 

j NAMEIT 

1 

T 

j DECINT, 

1 

HEXINT 




._j 
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Table UF1. Phase UF Routine/Subroutine Directory 


r T' 

| Routine/Subroutine | 


Function 


ABSOFF 


ADDEND 


BXRTN/SSRTN 

CHARVF 

<UG) 

DECINT 

(.UG) 

EOBRTN 


FINEQ1 


HEXINT 

(UG) 

ILOOOO 


IL0002 


IL0003 


IL0010 

(UG) 

IL0011 

(UG) 

IL0012 


IL0013 


IL0014 


IL0015 


IL0016 


IL0017 


IL0018 


IL0019 

(UG) 

IL0020 


IL0026 


IL0027 


IL0028 


IL0032 


IL1003 

(UG) 

IL2005 


NAME IT 


NAMEQU 


namevf 

(UG) 

NEXTEL 

(UG) 


Appends literal offsets to operands in variable part of print line. 
(Appends signed literal offsets to operands. 

[Generate listing of text for base offset pair. 

Places one character in variable field of print line image- 
Converts binary to externally coded decimal,. 

Chains to next input block. 

Locates label number table entries. 

Converts binary to externally coded hexadecimal. 

Entry point from compiler control. 

Scans text. 

[Entry to scan from initialization routines. 

Lists procedure names. 

Lists ends of procedures. 

Lists RR instructions. 

Lists RX non-branch instructions. 

Lists SS instructions. 

[Processes the start of prologues. 

Processes the end of prologues. 

End-of-text routine. 

Processes compiler generated label numbers. 

Lists labels. 

Lists branch and load address instructions. 

Lists shift instructions. 

Lists LM and STM. 

Lists SI instructions. 

Processes SS decimal instructions. 

Prints "* PROCEDURE” followed by entry names and statement number. 
Identifies operands. 

Determines name and offset from dictionary entry. 

Names generated label number. 

Places a variable name in the print line. 

Scans dictionary for multiple entry labels. 
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Table UF1. Phase UF Routine/Subroutine Directory (cont f d) 

r t 1 


| Routine/Subroutine | 

L _ _L 

r 

| NEXTSL 

(UG) 

T 

1 

|NM00 03 

(UH) 

1 

| 

i 

| PRINIT 

(UG) 

1 

l 

| PRNTLC 

(UG) 

1 

1 

i 

| PRNTOU 

(UG) 

1 

l 

| PRNTVF 

(UG) 

1 

1 

i 

| RRRTN 


l 

1 

i 

| SECOND 


i 

1 

| STATMN 

(UG) 

1 

| 

| STATNO 

(UG) 

1 

1 

L 


j. 


Function 


Scans dictionary for multiple statement labels. 

Common return point in naming routine. 

Prints location counter value, hexadecimal, and mnemonic op codes. 
Converts location counter to hexadecimal; places it in print image. 
Prints a line. 

Moves variable length item into variable field part of print line. 
Generates RR format listing of text. 

Scans ahead for literal offsets; inserts second instruction byte 
into print image. 


Lists statement numbers. 

Converts statement number to decimal. 


Section 3: 


Charts and Routine Directories 
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Table XA. Phase XA Error Message Editor 


I 

I 

I 

I 


T T 1 

| Main Processing! | 

Statement or Operation Type j Routine | Subroutines Used | 

1 1 ^ 

Determines whether error messages jXA |None | 

are to be printed j | j 

— | i .j 

Scans error message text skeletons J XA8 |XA50, XA70, XA90, XA110, ZUPL | 

and prints them out 1 j j 

x x j 


r T * 

| Routine/Subroutine | 

t + 


Table XA1. Phase XA Routine/Subroutine directory 

Function 

Determines whether error messages are to be printed. 

Sets severity code. 

Establishes which message types to suppress. 

Counts number of error chains to be processed. 

i 

Puts out messages if there are no diagnostics. 

Prints out "COMPILER DIAGNOSTIC MESSAGES". 

First scan of message chains. 

Scans error message text skeletons and prints them. 

Scans to head of next non-empty chain. 

Selects and prints header for messages of given severity. 

Gets next entry in message chain. 

Builds up first part of message in buffer. 

Accesses message skeleton. 

Puts out completed message. 

Moves message text to print buffer. 

Converts binary statement number to character representation, and 
moves it to print buffer. 

Converts binary numeric value to character representation and moves 
it to print buffer. 

Moves identifier from dictionary entry to the print area. 

Prints a line on SYSPRINT data set. 
l x j 


XA 


XAO 


XA01 


XA1 


XA2 


XA4 


XA7 


XA8 


XA9 (XB) 

XA12A 


XA30 

(XB) 

XA32 

(XB) 

XA35 

(XB) 

XA40 

(XB) 

XA50 

(XB) 

XA70 

(XB) 

XA90 

(XB) 

XA110 

(XB) 

ZUPL 
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APPENDIX A.: GUIDE TO PHASES AND MODULES 


This 

appendix 

relates the logical 

Read- In 

Logical Phase 

phases. 

physical phases, and modules con- 




tained 

within the 

physical phases. The 


CA 

Read-In phase common 

compiler 

name is IEMAA. 



routines 





CC 

Read-In phase common 

PHYSICAL 





routines 

PHASE 

MODULES 

DESCRIPTION 


CE 

Keyword tables 

Compiler 

Control 


Cl 

CG,CI 

Read- In pass 1 


AA 

Controls running of 

compiler 


CK 

Keyword tables 


AB 

Performs detailed ini- 
tialization 

CL 

CL, CM 

Read- In pass 2 





CN 

Keyword tables 


AC 

Writes records on 
intermediate file 
SYSUT3 

CO 

CO, CP 

Read-In pass 3 





CR 

Keyword tables 


AD 

Performs interphase 

dumping using TESTRAN 

CS 

CS, CT 

Read-In pass 4 


AE 

End of read- in phase 

CV 

CV, CW 

Read-In pass 5 


AF 

Controls system genera- 

Dictionary Logical 

Phase 



tion compiler options 

EG 

EG 

Initialization 


AG 

Closes SYSUT3 for out- 
put, reopens for input 

El 

EH, El , E J 

First pass over DECLARE 
statements 


AM 

Phase marking 

EL 

EK, EL, EM 

Second pass over 


BX 

48-character set prep- 



DECLARE statements 



rocessor 

EP 

EP 

Constructs dictionary 


JZ 

Builds second half 



entries for PROCEDURE, 



phase directory 



ENTRY and CALL state- 
ments 

Compile- 

time Processor Logical Phase 







EW 

EW, EX 

Constructs dictionary 


AS 

Resident phase for 



entries for LIKE attri- 



compile-time processor 



butes 


AV 

Initialization phase 

EY 

EY, EZ 

Constructs dictionary 



for compile-time proc- 



entries for ALLOCATE 



essor 

FA 

FA, FB 

Checks context of 

BC 

BC, BE, BF 

Initial scan and tran- 
slation phase for 



source text 



compile-time processor 

FE 

FE, FF 

Changes BCD to dic- 

tionary references 

BG 

BG,BI 

Final scan and replace- 
ment phase for compile- 

FI 

FI 

Checks validity of dic- 



time processor 



tionary references 

BM 

BM, BN 

Error message printout 
phase 

FK 

FK 

Rearranges attributes 




FO 

FO, FP 

Constructs dictionary 

BW 


Cleanup phase for 



entries for 0N- 



compile-time processor 



conditions 
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for 


FQ 

FQ 


Checks validity of 

LR 

LR 

Initialization for 




PICTURE chain 



Phase LS 

FT 

FT, FU 


Dictionary 

LS 

LS,LT,LU 

Converts expression 




house-keeping 



triples to pseudo-code 

FV 

FV, FW 


Merges second file 

LV 

LV 

Provides string han- 




statements into text 



dling facilities 

FX 

FX, FY 


Processes identifiers 

LW 

LW, LX 

Converts string triples 




for cross reference and 



to pseudo- code 




attribute listing 

MB 

MB, MC 

Constructs pseudo-code 

Pretranslator Logical Phase 



for pseudo- variables 

GA 

GA 


Modifies I/O statements 

MG 

MG, MH 

Constructs pseudo-code 
for in-line functions 

GK 

GK 


Checks parameter match- 
ing 

MI 

MI, MJ 

Constructs pseudo-code 
for in-line functions 

GP 

GP, GQ, 

GR 

Second check on param- 
eters 

MK 

MK 

Constructs pseudo-code 
for in-line functions 

GU 

GU, GV 


Processes CHECK condi- 
tion statements 

ML 

ML 

Processes generic entry 







names 

HF 

HF, HG 


Processes structure 

assignments 

MM 

MM, MN, MO 

Processes CALL and 
function procedure 

HK 

HK, HL 


Processes array assign- 



invocations 




ments 

MP 

MP 

Reorders BUY and SELL 

HP 

HP, HQ 


Processes items defined 



statements 




using iSUBs 

MS 

MS, MT 

Constructs pseudo-code 

Translator Logical 

Phase 



for subscripts 

IA 

I A, IB 


Stacks operators and 

NA 

NA 

Generates pseudo-code 




operands 



for branches, RETURN 

triples, etc- 

IG 

IG 


Preprocessor for gener- 
ic functions 

NG 

NG 

Generates Library call- 
ing sequences for DELAY 

IM 

IM, IN, 

10 

Processes generic func- 



and DISPLAY statements 


IP„IQ 


tions 

NJ 

NJ, NK 

Generates Library call- 

Aggregates Logical 

Phase 



ing sequences for exe- 







cutable RECORD- oriented 

JK 

JK, JL, 

JM 

Structure processor 



input/output statements 

JP 

JP 


Checks DEFINED chains 

NM 

NM, NN 

Generates Library call- 
ing sequences for exe- 

Pseudo- 

Code Logical 

Phase 



cutable STREAM- oriented 







input/output statements 

LA 

LA 


Utility scanning phase 

NT 

NT 

Pre- processor for NU 

LB 

LB, LC 


Generates triples to 

initialize AUTOMATIC 

NU 

NU, NV 

Generates Library call- 




and CONTROLLED scalar 



ing sequences for 




variables 



data/format lists 

LD 

LD 


Constructs dictionary 

OB 

OB, OC 

Processes compiler 




entries for initialized 



functions and pseudo- 




STATIC scalar variables 
and arrays 



variables 





OE 

OE, OF 

Constructs pseudo-code 

LG 

LG, LH 


Expands DO loops 



for assignments 
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OG 

OG, OH 

Generates library 

calling sequences 

OS 

OS, OT, OU 

Converts constants to 
required internal form 

Storage 

Allocation 

Logical Phase 

PD 

PD 

First STATIC storage 

allocation phase 

PH 

PH 

Second STATIC storage 
allocation phase 

PL 

PL, PM 

Constructs symbol 

tables and DEDs 

PP 

PP 

Sorts AUTOMATIC chain 

PT 

PT, PU 

Allocates AUTOMATIC 

storage 

2F 

QF,QG,QH 

Constructs prologues 

2J 

QJ,QK 

Allocates DYNAMIC stor- 
age 

Register 

Allocation Logical Phase 

RA 

RA, RB 

Processes addressing 

mechanisms 

RF 

RF,RG,RH 

Allocates physical reg- 


isters 


Final Assembly Logical Phase 


TA 

TA, TB,TC 

Constructs DECLARE con- 
trol blocks 

TF 

TF 

Assembly first pass 

TJ 

TJ, TK 

Optimization 

TO 

TO, TP 

Produces ESD cards 

TT 

TT, TU 

Assembly second pass 

UA 

UA, UB , UC 

Final assembly initial 
values, first pass 

UD 


Final assembly initial 
values, second pass 

UF 

UF, UG, UH 

Produces listings 

Error 

Editor 


XA 

XA, XB 

Determines whether 
there are any diag- 
nostic messages to be 
printed, and if so, 
prints them 


XF-YX 

Contain diagnostic mes- 
sages 
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APPENDIX B: RESIDENT TABLES 


There are three resident tables: the 
dictionary, the keyword tables, and the 
phase directory. The dictionary is resi- 
dent through part of the compilation; the 
formats of the dictionary entries are fully 
described in Appendix C. The keyword 
tables are resident during the read-in 
logical phase, and the phase directory 
throughout the compilation. 


QRGANIZATI ON OF KEYWORD TABLES 


The read- in phase is divided into five 
passes containing the modules shown in 
Figure 7. 

Modules CA and CC contain routines which 
are common to all five passes. Successive 
blocks of routines overlay the areas used 
in the first pass by modules CE, CG, and 
Cl. The keyword tables are held in separ- 
ate modules (CE, CK, CN, and CR) which must 
each be less than 1,024 bytes (IK) long. 


In this way it is possible to hold in 
storage only those keywords which are 
required for any one pass. The keyword 
tables are constructed in the following 
manner. 

For ease of searching and modifying a 
keyword table, it is organized into two 
levels and by keyword length, as shown in 
Figure 8. 

The KEYWD routine is called by one of 
the statement scanning routines, and is 
supplied with a parameter which enables it 
to decide which set of keywords to look at 
(e.g., statement identifier, ON condition, 
miscellaneous) . It does this by using the 
parameter to extract the required relative 
address (R(A),etc.) from the first level 
directory. The second level directory pro- 
vides the KEYWD routine with the means of 
reaching a table containing keywords of 
correct length; the KEYWD routine calls the 
KEYID routine, which scans the next signi- 
ficant item in the source text to obtain 
the length used in this look-up. 


r 1 

I I 

I CA | 

I I 

L J 

r 1 

I CC I 

L J 


> Common Routines 




— T“ 
1 



— T“ 

1 

I 



“T— 

1 

I 



~ T 
! 

I 



r - 

1 

1 

CE j 

1 

1 

r - 

1 

CK i 

1 

1 

r“ 

1 

CN 1 

1 

1 

r - 

1 

1 

CR j 

1 

1 

r~ 

1 

CR j 

i 

i 

I 

i 

j 

I 

L_ 

i 

| 

L_ 

i 

1 

L_ 

. i 



1 

1 

1 



1 

1 

I 



1 

1 

| 



1 

1 

1 



r~ 

1 

j 

1 

| 

r“ 

1 

l 

j 

1 

| 

r~ 

1 

__ 1 

| 

1 

1 

r~ 

1 

1 

j 

1 

1 

r - 

i 

j 

l 

1 

1 

CG | 

I 

1 

1 

1 

1 

1 

1 

CL | 

1 

1 

1 

1 

1 

1 

1 

CO 1 

1 

1 

1 

1 

1 

1 

1 

cs j 

1 

1 

1 

1 

l 

1 

1 

CV I 

1 

1 

L- 

i 

_ j 

1 

1 

I 

l 

1 

i- 

i 

1 

1 

1 

1 

1 

L. 

1 

-J 

1 

1 

1 

I 

1 

i 

J 

1 

1 

1 

1 

1 

i 

1 

r~ 

1 

■ ■ *- -I 

i 

1 

1 

r - 

i 

i 

j 

i 

I 

r~ 

1 

■ ■ 1 ■ 1 

1 

1 

| 

r~ 

1 


1 

1 

r~ 

I 

1 

I 

1 

Cl 1 

1 

1 

1 

1 

1 

CM | 

i 

1 

1 

l 

1 

CP 1 

1 

1 

l 

1 

1 

CT ! 

1 

1 

1 

1 

1 

1 

CW I 

1 

L_ 

1 

1 

1 

1 

L. 

i 

. _ _ j 

1 

1 

1 

L_ 

1 

1 

1 

1 

l_ 

1 

1 

1 

1 

i- 

1 

J 


Pass 1 

1 

1 


Pass 2 

1 

1 


Pass 3 

1 

1 


Pass 4 

1 

1 


Pass 5 


Figure 7. Organization of Read-In Phase 
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Format of Third Level Tables 


A<->| 

h 

I 

I- 

I 

L. 


r 1 

— j R(A) 

f 

r — | R(B) 

* 

| R(C) 

j. 


l—l 


| B L > 


First Level 
Directory 


c«-> 


H- 


Second 
Level 
Direc- 
1 tory 


Figure 8. Organization of Keyword Table 


Format of First Level Directory 


FSTLVL DC AL2 (STATID 
DC AL2 (ON ID - 


- FSTLVL) 
FSTLVL) 


Format of Second Level Directory 


The third level tables have a prefix 
byte containing the number of entries in 
this particular table followed by keyword 
entries. These consist of the keyword in 
internal code plus the replacement charac- 
ter (keywords recognised as such are 
replaced by a single code byte). 


STLm DC FLl'x* where x is number of 
keywords in this table 

DC X' 112315* keyword in internal 
code 

DC X*55* replacement in internal 
code 

DC X' 3938 39 * 

DC X*5A* 


Some keywords are not represented by one 
word (e.g., GO TO, BY NAME, and clearly, 
the mechanism must be modified to cope with 
the second word. This modification is 
achieved by OR-ing a 1-bit into the first 
bit of the first level. The presence or 
absence of this bit is tested by the KEYWD 
routine before the suspected keyword is 
compared. If the bit is absent, the pass 
through the routine is quick, as there is 
no possibility of an extra level search. 
If the bit is present, the keyword must be 
compared after the additional bit has been 
AND-ed out. If the comparison is equal, 
the two bytes following the replacement 
character are used as a relative address to 
reach the next level table. 


The second level tables contain relative 
addresses, which enable the KEYWD routine 
to reference a third level table containing 
keywords of the correct length. If one of 
these entries should contain zero, then 
KEYWD will interpret this as meaning that 
no keywords of this length exist in this 
table. 


Format of Entry Requi r ing Additional 
Comparisons 


DC X' 9726 * GO + X'1000* 


STATID DC FL2 * m* where m is smallest 
length in table 

DC FL2 * n* where n is largest 
length in table 

DC AL2 (STLm-STATID) 

DC AL2 (STLn- STATID) where the 

symbols beginning STL are 
the symbolic addresses of 
the corresponding keyword 
tables 


DC X* 40 * 

DC AL2 (N XTLVL-*) Relative address 
of next level table 

The format of these extra level tables 
is similar to that for the third level. In 
this way, it is possible for national 
language keywords to replace single words 
by two or more words, if so desired. 
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PHASE DIRECTORY 


1 


1 abort has occurred 

Because of the number of phases in the 


2 

LIST 

1 not wanted 

compiler, the phase directory is split into 
halves. The first half is constructed 




0 wanted 

during the initialization of the compiler; 
also a list of names of the phases in the 


3 

LOAD 

1 not wanted 

second half is kept in Phase AA. This list 




0 wanted 

is used to pass status indications (i.e., 
whether phases are wanted or not wanted) 


4 

DECK 

1 not wanted 

from the first half to the second half. 




0 wanted 

phase JZ uses the list to construct a new 
directory for the second half. 


5 

EXTREF 

1 not wanted 

0 wanted 

The phase directory is constructed by 


6 

XREF 

1 not wanted 

use of the BLDL macro and a build list. 
The format of the build list is fully 




0 wanted 

described in the publication IBM System/360 


7 

ATR 

1 not wanted 

Operatinq System, Control Proqram Services, 
Form C28-6541. 




0 wanted 


1 

0 


1 means U- format 

Each entry in the build list is 30 bytes 




0 means F- format 

long. On returning from the BLDL macro, 
two bytes of the name field and ten other 




records on input 

bytes of each satisfied entry in the build 


1 


1 if track overflow 

list are used to construct a 12-byte phase 
directory entry in the compiler control 




is present 

routines. The build list is destroyed 


2 


Severity code 

after the initialization process is com- 


3 


Severity code 

plete’. 


4 


Severity code 



5 


Severity code 

The format of a phase directory entry is 




where 0000=FLAGW 

as follows: 




0001=FLAGE 

0010=FLAGS 

Byte Number Description 


6 

CHAR 48 

1 not wanted 

1-2 Phase name 




0 wanted 

3 Status byte 


7 

MACRO 

1 not wanted 

0 wanted 

4-5 Concatenation number and 





Library identification 

2 

0 

SOURCE 

1 not wanted 

0 wanted 

6-8 TTR of first text record; 





where TT is the relative 
track number, and R is the 


1 


not used 

block number on that track 


2 

BCD 

1 BCD input 

0 ECBDlC input 

9-10 Total amount of storage 





required 


3 


not used 

11 - 12 Length of first text record 


4 

OPT 

1 wanted 

0 not wanted 



5 


1 AE required 

Control Code Word — CCCODE 


6 


1 program check 





has occurred 

The format of the control code word 





(CCCODE), which is four bytes in length, is 


7 


1 means first record 

as follows: 




has been read 

Byte Bit 

3 

1 


i means do not produce 





code for STMT 

0 0 DUMP 1 wanted 





0 not wanted 


2-7 


not used 
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APPENDIX C: INTE RNAL FORMATS OF DICTIONARY ENTRIES 


This appendix describes the formats of 
dictionary entries during the compilation 
of a source program. The appendix is 
organized in the following manner: 

1. Dictionary entry code bytes 

2. Dictionary entries for ENTRY points 

3. Code bytes for ENTRY dictionary 
entries 

4. Dictionary entries for DATA, LABEL, 
and STRUCTURE items 

5. Code bytes for DATA, LABEL, and STRUC- 
TURE dictionary entries 

6. Uses of the OFFSET 1 and OFFSET 2 
slots in DATA, LABEL, and STRUCTURE 
dictionary entries 

7. Dictionary entries for: 

label constants 

data constants 

formal parameters 

FILE entries 

TASK and EVENT data 

internal library functions 

parameter descriptions 

ON conditions 

PICTURES 

expression evaluation workspace 
dope vector skeletons 
symbol table entries 
AUTOMATIC chain definitions 
DED dictionary entries 
FED dictionary entries 
temporary dope vectors 
BCD entries 

second file statements 

8. Dimension tables 


1. DICTIONARY ENTRY CODE BYTES 


The dictionary is used to communicate a 
complete description of every element of 
the source program, the compiled object 
program, and the compiler diagnostic messa- 
ges between phases of the compiler; the 
text describes the operations to be carried 
out on the elements. 

Each type of element has a charac- 
teristic dictionary entry, which is iden- 
tified by a code occupying the first byte 
of the entry. In general, each type of 


element has a different code byte, but in 
order to permit rapid identification of 
dictionary entries, the code bytes have 
been allocated on the following basis: 


First Half Byte 


Bit Bit 

Position Value Meaning 


0 


0 entry has BCD 

1 entry has no BCD 


1 * 


0 entry is to be chained 

1 entry not to be chained 


2 


0 not a member of structure 

1 member of structure 


3 


0 not dimensioned 

1 dimensioned 


♦This bit only applies to Phase FT which 
constructs the storage class chains by a 
sequential scan of the dictionary; later in 
the compiler, items with this bit on * are 
added to the storage class chains. 


In the second half byte, the following 
codes have the meanings shown: 

X'F' means data variable 
X*7' means label variable 
X'E* means structure 


The second and third bytes of every 
dictionary entry contain the length, in 
bytes, of the entry. If the entry has BCD 
(i.e. , the first bit of the entry is zero), 
this length count does not include the BCD; 
instead, the BCD,, which follows the main 
body of the entry, is preceded by a single 
byte containing one less than the number of 
characters of BCD. 

Using this general scheme, the code 
bytes allocated for dictionary entries 
appear in the following table. Code bytes 
in the table which have no corresponding 
description are not allocated. 

X*00* Statement label constant 

01 Procedure or entry label 

02 GENERIC entry label 

03 External entry label (entry type 4) 

04 Built-in function, e.g. , DATE 

05 Temporary variable and controlled 
allocation workspace 

06 Built-in GENERIC label, e.g.,, SIN 

07 Label variable 
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08 File constant 

09 
0A 
OB 

OC Task identifier * 

OD Event variable * 

OE 

OF Data variables (not dimensioned or a 
structure member) 

10 
11 
12 

13 

14 

15 

16 

17 Dimensioned label variable 

18 

19 
1A 
IB 

1C Dimensioned task identifier * 

ID Dimensioned event variable * 

IE 

IF Dimensioned data variable 

20 
21 
22 

23 

24 

25 

26 

27 Label variable in structure 

28 

29 
2A 
2B 

2C Task identifier in structure * 

2D Event variable in structure * 

2E Structure item 

2F Data variable in structure 

30 

31 

32 

33 

34 

35 

36 

37 Dimensioned and structured label 
variable 

38 

39 
3A 
3B 

3C Dimensioned task identifier in 
structure 

3D Dimensioned event variable in 
structure 

3E Dimensioned structure item 
3F Dimensioned and structured data 
variable 

40 Formal parameter type 1 

41 

42 


43 

44 

45 

46 

47 

48 

49 
4A 
4B 
4C 

4D ON CONDITION entry 

4E 

4F 

80 ENTRY type 1 — from a PROCEDURE 
statement 

81 BEGIN statement entries — entry 
type 1 

82 ENTRY statement — entry type 1 

83 Entry type 5 

84 Entry type 3 

85 Entry type 2 

86 Entry type 6 

87 Label variable formal parameter or 
temporary 

88 Constant 

89 File formal parameter or file 
temporary 

8A 

8B 

8c Task identifier formal parameter * 

8D Event variable formal parameter * 

8e 

8F Data variable formal parameter or 
temporary 

90 Invocation count dictionary entry 

91 

92 

93 

94 

95 

96 

97 Dimensioned variable formal parameter 
or temporary 

98 File attribute entry 

99 
9 A 
9B 

9C Dimensioned task identifier formal 
parameter * 

9D Dimensioned event variable formal 
parameter * 

9E 

9F Dimensioned data variable formal 
parameter or temporary 

A0 
A1 
A 2 
A3 
A4 
A5 
A6 

A7 Structured label variable temporary 

A8 

A9 

AA 
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AB 

AC 

AD 

AE 

AF 


Temporary or formal parameter 
structure 

Structured data variable temporary 


BO 

El 

B2 

B3 

B4 

B5 

B6 

B7 

B8 

B9 

BA 

BB 

BC 

BD 

BE 

BF 


Dimensioned and structured label 
variable temporary 


Dimensioned and structured task 
identifier temporary * 
Dimensioned and structured event 
variable temporary * 

Dimensioned structure formal 
parameter or temporary 
Dimensioned and structured data 
variable temporary 


2-3 Length 

4 Level 

5 Count 


6-7 Dictionary reference to the 

entry type 1 of the contain- 

ing block 

8-9 Dictionary reference of the 

dictionary entry for the 

first label that was 
attached to the PROCEDURE 
statement 


10-11 Dictionary reference to the 

entry type 1 of the next 
PROCEDURE or BEGIN statement 
in the source program 


12-13 The start of the chain of 

all AUTOMATIC variables 


14-15 j Dictionary references to 

16-17 > three dictionary entries 

18-19 | indicating storage require- 

J ments for workspace 


CO String dope vector for temporary 20-21 

Cl DED2 entry 

C2 Internal library function, e.g., 

conversion routines 22-23 

C3 Compiler label 

C4 Prefix ON list item 

C5 Parameter lists 24-25 

C6 Dope vector skeletons 

Cl Symbol table entry or DED entry 

C8 Error message, table entry, workspace 

requirement, etc. 26-28 

C9 Record Definition Vector (RDV) entry 

CB Select a member from a generic family 

CC AUTOMATIC chain delimiter or Dope 29-31 

Vector Descriptor (DVD) entry 
CD ON condition entry 

CE Label BCD entry 

CF End of information in dictionary 32-34 

block 


* Not in second version 

35-37 


2. DICTIONARY ENTRIES FOR ENTRY POINTS 
“ " ' " 38-40 

Entry type 1 for PROCEDURE. BEGIN, and 
ENTRY statements 


The format of an entry for a PROCEDURE 
statement is as follows: 41-42 

Byte Number Description 

1 Code byte X*80* 


Dictionary reference of 
CHECK list 

Dictionary reference of 
NOCHECK list 

Dictionary reference of the 
first symbol table entry for 
this block 

Size of the DSA for this 
block 

Offset of the eight words in 
the DSA used for addressing 
the DSA- 

Offset of the storage used 
for the parameter list nec- 
essary in an ALLOCATE- FREE 
statement 

Offset of the two-byte 
switch which is set on entry 
to a procedure and tested at 
a RETURN (expression) 

Offset of the four-byte slot 
which will contain the 
address of the first approx- 
imation of the target field 
(the address of the implied 
parameter) 

Dictionary reference of the 
entry type 1 of the first 
ENTRY statement of the pro- 
cedure. The entry type 1 
for PROCEDURE and ENTRY 
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43 

44-57 


58 


statements of any one proce- 
dure form a circular chain. 
If there are no ENTRY state- 
ments in a procedure this 
slot will contain the dic- 
tionary reference of the 
PROCEDURE'S entry type 1, 
i.e., of the entry in which 
the slot occurs 


OPTIONS code byte 

Seven 2-byte dictionary ref- 
erences to dictionary 
entries for prefix options. 
Only those prefix options 
which are changed within the 
procedure have a dictionary 
reference. The remainder 
are zero. The order of the 
options in this list is the 
same as in the options byte. 
(See "Options Code Byte" in 
this Appendix) 

Options change byte. This 
byte contains a one bit for 
each prefix option which is 
changed within the proce- 
dure. Its format is identi- 
cal with the normal options 
byte 


4 Level 


5 Count 

6-7 Dictionary reference of the 

next member in the circular 
PROCEDURE- ENTRY chain 

8-9 Dictionary reference of the 

dictionary entry for the 
first label on the original 
ENTRY statement 

10-12 The offset of the apparent 

entry point 

13 2*n where n is the number of 
parameters 

14 onwards n dictionary references to 

the formal parameter type 1 
entries 

The labels on a PROCEDURE or ENTRY 
statement will be placed in the dictionary 
according to the following format: 

Byte Number 

1 

2-3 


Description 
Code byte X’01* 
Length 


59-61 Offset of workspace used in 

BUY statement 

62 2*n where n is the number of 
parameters at this entry 
point 

63 onwards N dictionary references of 

formal parameter type 1 
entries 

The format of an entry for a BEGIN 
statement is similar to the above for the 
first 34 bytes. The initial code byte is 
X'81', and the dictionary reference in 
bytes 8 and 9 is that of the first label on 
the original BEGIN statement, if any. If 
there was no statement label, then the 
statement number occupies this slot. The 
presence of a statement number or statement 
label is indicated by a flag byte in 
position 35. This is set to sN for a 
statement number, or to SL for a statement 
label. Bytes 36-53 contain the same as 
bytes 44-61 in a PROCEDURE entry type 1. 

The format for the entry type 1 derived 
from an ENTRY statement is as follows: 

Byte Number Description 

1 Code byte X'82' 

2-3 Length 


4-5 Hash chain(STATIC chain) 


6-8 

9-10 

11 


12-13 

14-16 


Pointer to transfer vector 

Statement number 

Other 1 code byte. (See 
"First code byte - other 1" 
in this Appendix. ) The last 
bit will always be set to 
one, unless the label is the 
last label for a particular 
statement, in which case the 
last bit will be set to 
zero. 

Pointer to entry type 2 

Spare bytes for final assem- 
bly. The pseudo- code phase 
dealing with RETURN 

(expression) will insert 
into these bytes a code 
which must be stored in a 
specific slot in the DSA 
whenever the procedure is 
entered via this label. The 
code is used by the prologue 
construction phase. Byte 16 
in the first label for each 
PROCEDURE or ENTRY statement 
will contain the number of 
labels associated with that 
statement 
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17 

Block level 

Entry Type 3 


18 

Block count 

Entry type 3 dictionary entries are 
constructed either from an explicit dec- 
laration or from implicit and default 

19 

20 

21 

Entry Type 2 

Count of containing block 

BCD length-1 

BCD of label 

rules. Their 

Byte Number 

1 

2-3 

4-5 

6-7 

format is as follows: 

Description 

Code byte X’84' 

Length of entry. 

Dictionary reference of 

entry type 1 of PROCEDURE or 
ENTRY statement. 

Dictionary reference of 

An entry 

type 2 describes the data 


entry type 2. This des- 

attributes of 
is as follows : 

an entry point. The format 


cribes the value returned 
when the label associated 
with this entry type 3 is 

Byte Number 

Description 


invoked as a function. 

1 

Code byte X' 85 * . 

8-10 

The offset in the DSA of the 
containing block of the 

2-3 

Length. 


first approximation of the 
storage for the value 

4-5 

6-8 

Dictionary reference of 

entry type 3 

Offset, i.e., the position 


returned by this entry 
point, when it is invoked as 
a function. 


of the string dope vector in 
the DSA of the block to 
which the entry belongs. 

This will be zero if the 

11 

The entry code byte. (See 
"Entry Code Byte" in this 
Appendix. ) 


item is not a string. 

12-13 

The dictionary reference of 
an item in the AUTOMATIC 

9 

DATA byte (see "DATA Byte" 
in this Appendix) . 


chain of the containing 
block. Entry type 3 entries 
feature in the AUTOMATIC 

10-12 

Data information, which is: 

1. with numeric data, the 


chain of the containing 

block. 


precision and scaling, 

left justified 

2. for strings of fixed max- 

imum length, the binary 
version of the string 

length in the two left- 
most bytes of the data 
information 

3. for strings of adjustable 

length, the text ref- 

erence of a second file 
statement giving the 

14-15 

Switch bytes. The pseudo- 
code phase dealing with 

RETURN (expression) inserts 
into these bytes the bit 
pattern of the code which 
will signify that entry to 
the procedure was by the 
label associated with this 
particular entry type 3. 

Phase QF will use this to 
create MVI instructions - 


expression for the string 
length 

16-17 

Dictionary reference of a 
SETS list. This will be 

zero if the attribute SETS 

13-14 

Picture table reference, if 
required. The storage allo- 
cation phase will change 
this to the dictionary ref- 


was not specified. The for- 
mat of a SETS list is given 
at the end of this section. 


erence of a DED entry, the 

18-19 

Dictionary reference of the 


picture table reference 

being moved into this refer- 


dictionary entry for the 

label belonging to this 


if necessary entry type 3. 
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20 


21 


Status byte. This byte will 
contain X'00' or X*F0'. 
X'00* indicates that the 
entry was constructed from 
an ENTRY declaration which 
had parameter descriptions. 
X'FO' indicates the entry 
was constructed either arti- 
ficially or from an ENTRY 
declaration which did not 
have parameter descriptions. 


Entry Type 4 


Entry type 4 dictionary entries describe 
external entry points. Their format is as 
follows: 


Byte Number Description 

1 Code byte X'03* 


2-3 

2*n where n is the number of 
parameters. This is zero if 4-5 

the status byte is X'FF' 


Length 

Hash chain, later used 
as the STATIC chain 


22 onwards If the status byte is X*00* 
there are n two-byte ref- 
erences of parameter des- 
criptions. A parameter des- 
cription is a dictionary 
entry for the particular 
type of item but without a 
BCD. If one particular par- 
ameter is not described, 
i.e. if there are two adja- 
cent commas in the ENTRY 
attribute, then the dic- 
tionary reference is zero. 
When the status byte is 
X'FO* then an entry type 3 
is only 23 bytes long. 

22+ 2n- DECLARE statement number 

23+2n 


6-8 Offset of the load constant 

in STATIC 

9-11 Offset in the DSA of the 

declaration block of the 
storage for the first 
approximation of the value 
returned. 

12-13 The dictionary reference of 

an item in the AUTOMATIC 
chain of the declaring 
block. Entry type 4 entries 
are members of the AUTOMATIC 
chain of the declaring 
block. 

14 The ENTRY byte. (See "ENTRY 
Byte" in this Appendix. ) 

15 The DATA byte. (See "DATA 
Byte" in this Appendix.) 


S ETS List Format 


Byte Number 
1 


2-3 


4-5 


Description 

Code byte X* C8 ' 

Overall length of original 
BCD entry 

2*nl where nl is the number 
of identifiers in the SETS 
list. If * was specified, 
these bytes contain 2*nl+l. 


16-18 Data information which is: 

a) with numeric data, the 
precision and scaling, 
left justified 

b) for strings of fixed max- 
imum length, the binary 
version of the string 
length in the two left- 
most bytes of the data 
information 

c) for strings of adjustable 
length, the text refer- 
ence of a second file 
statement giving the 
expression for the string 
length 


6-5+2*nl 

Dictionary references of the 

19-20 

Picture table address if 


identifiers in the SETS 
list. 


required. 



21-22 

Dictionary reference of a 

6+2*nl 

n2, the number of para- 
meters in the SETS list. 


SETS list 



23 

Status byte. If this byte is 

7+2*nl 

n2 numbers of one byte each. 


X*00* the meaning is the 

onwards 

These are the parameter 


same as the status byte in 


numbers and will be in 


an entry type 3. If the 


ascending order. 


byte is X*FF* it is implied 
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24 


that no parameters were des- 
cribed 

2*n where n is the number of 
parameters. This is zero if 
the status byte is X*FF* 

25 n dictionary references to 

parameter descriptions as in 
an entry type 3 


is given the attribute GEN- 
ERIC. The pointers are to 
the entries which contain 
specifications of the var- 
ious possible 
attributes 

9+2n Level 

10+2n Count 


25+2*n Level 

26+2*n Count 

27+2*n BCD length-1 


ll+2n BCD length-1 

12+2n BCD 

onwards 


28+2*n 

onwards BCD of identifier 


3. CODE BYTES FOR ENTRY DICTIONARY ENTRIES 


Entry Type 5 


ENTRY code Byt e 


Entry type 5 dictionary entries describe 
the entry points which are formal paramet- 
ers. They have the same format as entry 
type 4 except that: 


This code byte is used in ENTRY type 3, 
4, and 5 dictionary entries. The format is 
as follows: 

Bit Number Description 


Byte 1 is X'83* 


1 


IRREDUCIBLE 


Bytes 4 and 5 contain the address of 2 

the formal parameter type 1 entry 

3 

Bytes 6 to 8 contain the offset in the 
DSA of the declaring block of the 4 

address slot associated with a formal 
parameter 5 


REDUCIBLE 

USES 

SETS 

SECONDARY 


No BCD is contained in the entry 


6 


RECURSIVE 


7 


Has data attribute 


GENERIC Entry Point 


8 


Not used 


The format for a GENERIC entry point is 
as follows: 


Options Code Byte 


Byte Number 

Description 





This code is used in entry 

1 

Code byte X'02* 

dictionary 

entries for PROCEDURE 



ments . The 

format is as .follows: 

2-3 

Length 

Bit Number 

Description 

4-5 

Hash chain 

1 

REENTRANT 

6-7 

DECLARE statement number 

2 

Not used 

8 

2n, where n is the number 
of two-byte addresses fol- 

3 

MAIN 


lowing 

4 

SECONDARY 

9-8+2n 

Pointers to entry type 4 
or 5, ENTRY labels, or BUIL- 

5 

RECURSIVE 


TIN entries. These entries 
are made when an identifier 

6 

OPTIONS 


type 1 
state- 
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7 Not used 

8 Not used 

4 . DICTIONARY ENTRIES FOR DATA, LAB El „ AND 

ST RUCTURE ITEMS 

Label Variables - Obtained from DECLARE 
Statement 


"Fourth Code Byte - other 4" 
in this Appendix. ) 

16 onwards Content determined by varia- 
ble code byte. 

After variable information 

2 bytes Symbol slot 

1 byte Level 

1 byte Count 



2-3 

4-5 

6-8 

9-10 

11 

12 

13 

14 

15 


Code byte may be X'07', 
X'17', X* 27* # X* 37 ' , X* 87 ' , 
X' 97 * , X*A7', X' B7 * . The 

last four cases apply when 
the item occurred in a par- 
ameter list in a PROCEDURE 
or ENTRY statement. In this 
case# bytes 4 and 5 will 
contain the dictionary ref- 
erence of the corresponding 
formal parameter type 1 
entry. In the first four 
cases, bytes 4 and 5 ini- 
tially contain the hash 
chain. After the scan of 
the dictionary, this slot 
will be re-used to form 
another chain, e.g., AUTO- 
MATIC or STATIC chain 


Length 

Initially contains the hash 
chain. After the dictionary 
scan, this is re-used to 
form another chain, e.g., 
AUTOMATIC or STATIC chain 


Offset inserted by storage 
allocation phase (as for a 
data item) 


DECLARE statement number 


'Other 1* code byte (See 
"First Code Byte - Other 1" 
in this Appendix. ) 

'Variable' code byte (See 
"Variable Byte" in this 
Appendix) 

'Other 2' code byte (See 
'Second Code Byte - Other 2" 
in this Appendix. ) 

'Other 3' code byte (See 
"Third Code Byte - Other 3" 
in this Appendix.) 

'Other 4' code byte (See 


1 byte BCD length- 1 
BCD 

With the exception of the 2-byte symbol 
slot, the general format is the same as for 
a structure. 


Dictionary Entries f o r Data Items 


The format is as follows: 

Byte Number Description 

1 Code byte may be X'OF', 

X'lF', X'2F’, X'3F', X' 8F* , 
X* 9F' , X ' AF ' , or X'BF'. The 
last four cases apply when 
the item occurred in a par- 
ameter list in a PROCEDURE 
or ENTRY statement. In this 
case, bytes 4 and 5 will 
contain the dictionary ref- 
erence of the corresponding 
formal parameter type 1 
entry. In the first four 
cases, bytes 4 and 5 ini- 
tially contain the hash 
chain. After the scan of 
the dictionary this slot 
will be re-used to form 
another chain, e.g., AUTO- 
MATIC or STATIC chain 

2-3 Length 

4-5 See above 

6-8 Offset. See "Format of 

Variable Information" in 
this Appendix 

9-10 DECLARE statement number. 

If the variable has not been 
explicitly declared, this 
number is zero; otherwise, 
it is the statement number 
assigned to the DECLARE 
statement from which the 
variable was obtained. 
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11-16 


17-19 


20-21 


22 

1 byte 
1 byte 
1 byte 


Six code bytes. These are: 
other 1, variable, other 2, 
other 3, other 4, and data. 
(See "Code bytes" in this 
Appendix for a description 
of these bytes. ) 


Major and Minor Structure Entries 


These entries do not include base ele- 
ments, i.e., they do not have any data 
attributes or LABEL. Their format is : 


Byte Number 

Data information, which is: 

1 

1. with numeric data, the 
precision and scaling, 
left justified 

2. for strings of fixed max- 
imum length, the binary 
version of the string 
length in the two left- 
most bytes of the data 
information 

3. for strings of adjustable 
length, the text ref- 
erence of a second file 
statement giving the 
expression for the string 
length 


Description 


Code byte may be X'2E', 
X * 3 E * , X * Ae ' , or X* BE* . The 
last two indicate that there 
is no BCD attached- When 
the identifier occurs in the 
parameter list of a PROCE- 
DURE or ENTRY statement, 
bytes 4-5 contain the dic- 
tionary reference of the 
formal parameter type 1 
entry. In the case of the 
first two code bytes, bytes 
4-5 of the entry initially 
contain the hash chain. 
This is later modified by 
Phase FT 


Symbol slot, containing 

either zero, or one of the 4-5 

following : 

6-8 

1. If the SYMBOL and DED 
bits are not on, and the 
data item has a picture, 
these bytes contain the 
dictionary reference of 
the picture table entry 

2. If the DED bit is on and 
the SYMBOL bit off, this 
slot points at a DED 
entry. If the item has a 
picture, the DED entry 
will contain the picture 
table address 

3. If the SYMBOL bit is on, 
the slot will point at a 
SYMBOL entry. This again 
will contain the picture 
address, if specified 


Variable information. The 
contents of these bytes are 
determined by the variable 
code byte. See "Format of 
Variable Information" in 
this Appendix 


Level 


Count 


BCD length-1 
BCD 


Length 

See byte number 1 

These bytes are used by the 
storage allocator; they will 
finally contain one of the 
following offsets: 

1. For structures which are 
parameters, or are dynam- 
ically defined, the off- 
set from the start of the 
major structures dope 
vector or the minor 
structures dope vector. 

2. For major structures, the 
offset from the start of 
AUTOMATIC or STATIC of 
the address slot which 
will point at the struc- 
ture dope vector 

3. For CONTROLLED struc- 
tures, only that speci- 
fied for minor structures 
in 1 , above 

4. For structures in STA- 

TIC EXTERNAL the contents 
depend bn the setting of 
the " dope vector 

required" bit in the 
"other 3" code byte. If 
this bit is off and the 
item is a major struc- 
ture, the slot contains 
the offset from the start 
of STATIC of the slot 
which will contain the 
address of the first byte 
of the structure. If the 
dope vector bit is on, 
the slot contains the 
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offset from the start of 
STATIC of the address 
slot which will point at 
the structure dope vec- 

tor. The offset slot is 
not used in either of the 
above cases for minor 
structures 

9-10 DECLARE number, i.e. the 

statement number of the 

DECLARE statement which pro- 
duced the structure 

11-15 Five code bytes. These are: 

other 1, variable, other 2, 
other 3, and other 4 

16 Variable information. The 


content is determined by the 
variable code byte, and will 
always include the informa- 
tion required for structure 
members. The format is des- 
cribed under "Format of 
Variable Information" in 
this Appendix 


1 byte Level 

17 Block level 

1 byte Count 

1 byte BCD length- 1 

BCD 
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5_. CODE BYTES FOR DATA, LABEL, AND STRUCTURE DICTIONARY ENTRIES 


The First Code Byte - Other 1 


Bit 

No. 


Description 


Set By 


-H 


Symbol or requires load constant if 
label constant. 


Defined on 

Mentioned in CHECK list 

Needs DVD 

Last member in structure 
Variable dimensions 

* dimensions 

* string length for data item 

— More labels follow for a label 
constant 

Major Structure - no member of 

the structure has a dimension or 
length attribute which is not * 


Phase EL, FT, gm 
or NU 


Phase EL 

Phase FO 

Various 

Phases EL or EW 

9 

Phase EL 
Phases EL and FT 
Phases EL and FT 
Phase EG 

Phase EY 


The Second Code Byte - Other 2 


Bit 

No. 


Description 


Set by 


1 

2 

3 

4 

5 

6 
7 

and 


Dynamically defined 

CONTROLLED major structure with 
varying strings 

NORMAL = O, ABNORMAL = 1 

Secondary 

Formal Parameter 

INTERNAL = O, EXTERNAL = 1 

00 = AUTOMATIC or DEFINED or simple 

parameter 

01 = STATIC 

11 = CONTROLLED 


Phase EL 
Phase EY 

Phases El and FT 
Phase El 
Phase El 
Phase El 
Phase EL 

Phase EL 
Phase EL 
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The Third Code Byte - Other 3 



Description 


Needs dope vector 


Needs DED 

Needs no storage for the item 
itself 

Correspondence defined 
Chameleon 

Sign bit for first offset 


Indication of the state of 
the value in the first offset 

0 = rubbish 

1 = good value 

As above but for second 
address slot 


Set by 


Phases EK and EY if variable 
dimension entries, variable 
string length, or in 
CONTROLLED storage; 

Phase NU when item appears 
in an argument list 

Phase NU 

Phase GP 


Phase FV 
Phase GP 

Phase PH for STATIC and 
Phase PT for AUTOMATIC 

Phase PH for STATIC and 
Phase PT for AUTOMATIC 


Phase PH 


The Fourth Code Byte ~ Other 4 


Description 


Set by 


A constant has been produced 
for this structure or array 

00 = Not temporary 

01 = Temporary type 2 

10 = Temporary not sold 

11 = With second skeleton 
dope vector 


Member of defined structure 

Packed = 0 Aligned = 1 

Major structure 

No dope vector initialization 

A temporary type 2 which has 
been incorporated in work- 
space 1 or RDV required 


Phase JK 


Phase GP, HF, HK, 
IM, or LB 


Phase FV 


Phase EL 


Phase EL 


Phase GP 


Phase OB 
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Variable Byte 


Bit 

No. 


Description 


Second address slot 

Dimensioned 

Member of structure 

Value list for label variables or 
POS for defined items 

Initial value if not a structure 
or LIKE if a structure 

EXTERNAL slot 

Defined slot 

CONTROLLED from ALLOCATE statement 


For a detailed explanation of the signi- 
ficance of these bits and a description of 
the extra slots associated with them, see 
"Format of Variable Information" in this 
Appendix. 


Data Byte 


- T r* 


+ + 


BIT 


CAD or 

NUMERIC 

FIELD 


Not 

Used 


+ I 


Sterling 

Non 

Sterling 


Long 

Short 


Cad. 

Numeric 

Field 


Binary 

Decimal 


Float 

Fixed 


Complex 

Real 


STRINGS 


Adjustable 

Length 

String 


Aligned 

Packed 


Varying 


No 

Picture 

Picture 


Char 

Bit 


Not 

Used 


Not 

Used 


-X X- 


6 . FORMAT OF VARIABLE INFORMATION 


Data items, labels, and structures 
require pointers to various tables if they 
have certain attributes; for example, if 
they are dimensioned or defined on a base. 
Space will be left for information only if 
the attribute is present. This leads to an 
addressing problem of how to find the 
position of the information when the pre- 
sence of other attributes alter its 
address. 

The problem is resolved by collecting, 
into one byte, all the attributes which 


require more than one bit to describe them. 
This has taken the second place in all the 
collections of attribute bytes. The pre- 
sence of a bit in this byte indicates the 
presence of further information. The off- 
set of this information from the start of 
the variable information is given by the 
presence of the bits to the left of the one 
of interest. Each bit will have a value 
associated with it. The sum of the values 
of the bits present and to the left of the 
one of interest will give the value of the 
offset. This is achieved in the coding by 
moving the code byte, masking off the bits 
to the right of the one being tested and 
the bit itself, and translating the byte. 
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The information produced by the presence 
of the following bits in the variable byte 
is as follows: 


B it number 1 : 

The second offset slot is 4 bytes long. 
The contents of this slot are described 
in this appendix. The decision to 
include a second offset slot in a 
dictionary entry is based on questions 
about the nature of the identifier. 
Refer to figure 9. 
r~i 

I Y | implies that a second offset 
J slot will be given, 
r~i 

|N| that it will not. 

i i 

Bit number 2 : 

The dimensioned bit. The slot produced 
by this is three bytes long. The first 
byte will contain the number of dimen- 
sions, the next two the dictionary 
reference of the dimension (multiplier) 
table 

Bit number 3 : 

Member of a structure bit. This slot 
is ten bytes long and has the following 
format: 


Bit number 5 : 

The initial value or LIKE bit is a 

four- byte slot. 

1. For normal initial value. The first 
two bytes contain the dictionary 
reference of the associated 'Initial 
Value' dictionary entry. The fourth 
byte contains X'FO' 

2. For INITIAL CALL. The first three 
bytes contain the text reference of 
a second file statement. The fourth 
byte Contains X'OF'. 

3. For initial labels. The first three 
bytes contain the text reference of 
a set of second file statements. 
The fourth byte contains X'FF*. If 
there is an initial slot but no 
initial values the fourth byte con- 
tains X'OO* 

4. For LIKE. The first two bytes con- 
tain the LIKE chain. The third and 
fourth bytes contain the dictionary 
reference of the likened structure 

Bit number 6: 

The EXTERNAL bit. ' This 2-byte slot 

contains the ESD number 

Bit number 7 : 

The DEFINED bit. This 7-byte slot 

contains the following: 


Byte Number 


Description 


Byte Numbe r Description 


1 Declared level number 


1-2 Defined chain. 


2 

True level number 

3-4 

Dictionary reference of 
the containing structure 

5-6 

Dictionary reference of 
the next member in the 


structure 


3-4 Dictionary reference of base 

5-7 The text reference of a 

second file statement. 
After the dictionary these 
bytes will contain X* FFFFFF' 
if the base is unsubscript- 
ed. 


7 Alignment 

8-10 Element length 

Bit number 4 : 

POS for defined items. The two- byte 
slot will contain the POS value as a 
binary integer. 


Bit number 8 : 

The CONTROLLED from ALLOCATE bit. This 
bit is on for dictionary entries for 
level 1 CONTROLLED data specified in 
ALLOCATE statements. The two- byte slot 
contains the dictionary reference of 
the dictionary entry for the data con- 
structed from the DECLARE statement 
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Figure 9. Decision to Include a Second Offset Slot 
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U ses of the QFFSET1 and 0FFSET2 Slots in 
Data, Label, and Structure Dictionary 
Entries 


The 0FFSET1 slot is in bytes 6-8 of the 
dictionary entry and the 0FFSET2 slot is 
part of the variable information. 


STi' TIC INTERNAL Structures 


Major and minor structure entries: 

OFFSET1 slot not used. 0FFSET2 slot 
contains offset of structure dope vec- 
tor from start of STATIC INTERNAL con- 
trol section (if there is a dope 
vector) 

Basic elements : 0FFSET1 slot contains 

offset of virtual origin (in the case 
of dimensioned items) or offset of item 
(when not dimensioned) from start of 
STATIC INTERNAL control section. 
0FFSET2 slot contains offset of dope 
vector (if there is one) from start of 
STATIC INTERNAL control section 


A UTOMATIC Structures 


Constant dimensions ; as for STATIC 
INTERNAL except that all offsets are 
relative to start of DSA. 

Adjustable dimensions; major and minor 
structure entries: OFFSETl slot not 
used. 0FFSET2 slot contains offset of 
structure dope vector from start of DSA 
(if there is a dope vector) 

Basic elements: OFFSETl slot not used. 

0FFSET2 slot contains offset of 
element's dope vector (if there is one) 
from the start of the DSA 


STATIC EXTERNAL and Parameter Structures 


Major structure entry: OFFSETl slot con- 
tains offset of address slot from start 
of data region. 0FFSET2 slot contains 
size of EXTERNAL control section. 
(Offset of major structure dope 
vector = 0. ) 

Minor structure entries: OFFSETl slot 

not used. OFFSET2 slot contains offset 
of structure's dope vector from start 
of major structure dope vector. 


Basic elements: OFFSETl slot not used. 

OFFSET2 slot contains offset of 

element's dope vector from the start of 
the EXTERNAL control section 


CONTROLLED Structures 


Major and minor structures: OFFSETl slot 
not used. OFFSET2 slot contains offset 
of structure dope vector from point to 
which pseudo register points. (In the 
case of the major structure, this value 
will be zero.) 

Basic elements: OFFSETl slot not used. 
0FFSET2 slot contains offset of 

element's dope vector relative to 

address in pseudo-register. 


Non-Structured Arrays in STATIC INTERNAL 


OFFSETl slot contains offset of vertical 
origin of the array relative to start of 
data region. OFFSET2 slot contains offset 
of dope vector (if there is one) from the 
start of the data region. 


Non-Structured Arrays in UTOMATIC 


Constant dimensions: as for STATIC 

INTERNAL 

Adjustable dimensions: OFFSETl slot not 
used. OFFSET2 slot contains offset of 
dope vector from start of data region. 


STATIC EXTERNAL, CONTROLLED or Parameter 
Array 


OFFSETl slot contains offset of address 
slot which contains a pointer to the arrays 
dope vector. (Not used in the case of 
CONTROLLED.) 0FFSET2 slot is not present. 


Non-Struc t ured Scalar Strings in STATIC 
INTERNAL 


OFFSETl slot contains offset of datum 
from start of data region. 0FFSET2 slot 
contains offset of dope vector (if there is 
one) from start of data region. 
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N on-Structured Scalar S trings in AUTOMATIC 


Constant length: as for STATIC INTERNAL 

Adjustable length: 0FFSET1 slot not 

used. OFFSET2 slot contains offset of 
dope vector from start of data region. 


N on-Structured Scalar Strings in STATIC 
EXTERNAL, CONTROLLED or Parameter 


12-14 

Second Offset Slot 

15-16 

Spare for Final Assembly 

17 

Level 

18 

Count 

19 

Count of Containing Block 

20 

BCD Length- 1 

21 etc. 

BCD 


0FFSET1 slot contains offset of address 
slot which points to string dope vector Compiler Labels 

(not used in the case of CONTROLLED). 

0FFSET2 slot not present. 

The format is identical to that of a 
label constant, except for the omission of 
the BCD. The code byte is X*C3*. 

Non-Structured Non-String Scalars in 
AUTOMATIC or STATIC INTERNAL 


0FFSET1 slot contains offset of datum 
from start of data region. 0FFSET2 slot 
not present. 


Non-Structured Non-String Scalars in STATIC 
EXTERNAL, CONTROLLED or Paramete r 


Formal parameter type 1 entry 


These entries are derived from the PRO- 
CEDURE and ENTRY statements, and do not 
contain any information other than that the 
identifier is a formal parameter. The 
format is as follows: 

Byte Number Description 


0FFSET1 slot contains offset of address 1 

slot which points to datum (not used in the 
case of CONTROLLED). 0FFSET2 slot not 2-3 

present. 

4-5 


Code byte X'40' 

Length 

Hash chain 


7. OTHER DICTIONARY ENTRIES 

Label Constants - Extracted by the Read- In 
Phase 


6-7 


Byte Number 
1 

2-3 


Description 

Code byte X*00* 

Length up to BCD length- 1 
byte 


8 


These bytes will point to a 
full description of the 
identifier after Phase EK, 
or Phase FA, or Phase FE. 
These full descriptions are 
dictionary entries for the 
type of item they are des- 
cribing. They do not con- 
tain the BCD of the iden- 
tifier, but in the slot for 
the hash chain there is the 
dictionary reference of the 
corresponding formal param- 
eter type 1 entry. 

Level 


4-5 Hash chain - STATIC chain 9 


Count 


6-8 Offset 


10 


BCD length- 1 


9-10 Statement Number 


11 BCD 


11 


Other 1 code Byte (See For a description of the types of entry 
"First Code Byte - Other 1" pointed to, see "Dictionary entry for par- 
in this Appendix ameter descriptions." 
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Dictionary entry for F I LE 


For attributes specified in OPEN state- 
ment the format is as follows: 


18 BCD length-1 

19 onwards BCD 


Byte Number 
1 

2-3 

4-5 

6-8 


Description 
Code byte X*98* 
Length 

STATIC chain 
0FFSET1 


FILE Parameters and Temporaries 


Code X*89' is used for file parameters 
and for file temporaries. The format of 
the entry will be the same as that for 
label variables. 


9-10 


DECLARE statement number 


FILE Environment Entries 


11 onwards String of second level mark- 
ers (without preceding ' C8* 
code bytes) one for each 
attribute other than FILE, 
TITLE and IDENT. 


Code X* C8 ' is used for the environment 
string. 

Byte Number Description 


This entry is created by the read-in 
phase and is referred to only as the 
argument of an ATTRIBUTES marker. 


1 

2-3 


Code byte X'C8* 
Length 


FILE Constants 


Code X* 08 * is used for file constant 
entries, which have the following format: 


4 onwards Internally coded form of 
argument of ENVIRONMENT 
option 

Code X* C8 * is also used for attributes 
collected from the DECLARE statement. 

Byte Number Description 


Byte Number Description 


1 


Code byte X'C8' 


1 


Code byte X*08' 


2-3 Length 


2-3 Length 

4-5 Hash chain, subsequently 

EXTERNAL or STATIC chain 

depending on whether FILE is 

EXTERNAL or INTERNAL 


4 onwards String of second level mark- 
ers (without preceding code 
bytes X* C8 *•) ,, one for each 
attribute other than FILE, 
ENVIRONMENT, EXTERNAL, or 
INTERNAL 


6-8 


9-10 


0FFSET1 (STATIC or transfer 
vector offset) 

Dictionary Entries from Constants 

Declare statement number 


11-12 

Dictionary 

reference of 

The format 

is: 


attributes 

none) 

entry (zero if 

Byte Number 

Description 

13 

Code byte 

(similar to the 

1 

Code byte X*88’ 


"other 2" 

code byte- Only 




internal/external bit used) 

2-3 

Length 

14-15 

Dictionary 

reference of 

4-5 

Hash chain 


environment 

none) 

string (zero if 

6 

DATA byte 

16 

Level 


7 

Data Precision* 

17 

Count 


8 

Scale Factor* 
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♦These are the apparent pre- 
cision and factor derived 
from the BCD of the constant 
(see Note 2) 

9 Type (see note 1) 

10 DATA byte (2) 

11 Data Precision (2)** 

12 Scale Factor (2)++ 

♦♦These bytes are inserted 
by the phase requesting con- 
version. If a picture is 
required, these bytes are 
used to contain a picture 
table reference (see Note 3) 


bytes 6 through 8 will contain the 
offset of the constant from the start 
of the pool of constants. If a dope 
vector is requested then the offset of 
this from the start of the constants 
pool is eight less than that of the 
converted constant. 

3. Should a DED be required, this will be 
constructed by Phase PL- The two 
bytes, precision(2) and scale 
factor (2), will contain a dictionary 
reference of a DED dictionary entry. 
If the constant requires a dope vector 
then Phase OS will make a dictionary 
entry for it, and the dictionary ref- 
erence preceding the BCD will be the 
dictionary reference of this. 


13-14 Dictionary reference - used 

when a phase requires a con- 
stant to be converted into a 
specific location in storage 

15 BCD 

Notes ; 

1. The type byte has the following mean- 
ing: 

First and second bits: 

00 - normal BCD constant. The first 
offset slot must be relo- 
cated by the storage allo- 
cation phase, to contain 
the offset of the converted 
constant from the start of 
STATIC storage, rather than 
from the start of the con- 
stants pool 

11 - the BCD is replaced by the inter- 
nal form of the constant. 
The first offset slot is 
treated in the same way as 
for the code 00 

10 or 01 - the constant is required to 

be converted into a speci- 
fic location in storage. 

The second code implies the 
converted constant should 
be made negative before 
being stored 

Sixth bit: 1 indicates that the con- 
stant requires a DED. 

Seventh bit: 1 indicates that the 

constant requires a dope vector. 

Eighth bit: 1 indicates that no con- 
version is required. 

2. After the constants processor the 


Task Identifiers and EVENT Data 


The format of the dictionary entries for 
task identifiers and EVENT data is, apart 
from the initial code byte, the same as 
that for a label variable. 


Dictionary Entries fo r Built-in Functions 


The format 

is : 

Byte Number 

Description 

1 

Code byte X'04* 

2-3 

Length 

4-5 

Hash chain - later becomes 
the STATIC chain 

6-8 

Offset - gives the position 
in STATIC storage of the 
load constant for Library 
routine 

9-10 

Code bytes - the first code 
byte contains a value used 
by Phase MG to pick up com- 
plete information about the 
built-in function. The sec- 
ond code byte contains 
further information about 
the built-in function (See 
"Second Code Byte.") 

11-12 

DECLARE statement number 

13 

Level 

14 

Count 

15 

BCD length-1 
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16 BCD 


BCD entries 


BCD entries are used when the LIKE, 
DEFINED, or POOL attributes are used. A 
short dictionary entry with the format 
given below is used. This is pointed at by 
Second Code Byte the dictionary entry with the attribute. 




Byte Number 

Description 


The second 

code byte contains the fol- 




lowing information: 

1 

Code Byte X'40" 




2-3 

Length 


Byte Number 

Description 

4 

BCD length-1 


1 

May be passed as an argument 

5 

BCD 


2 

May have an array as an 
argument 




3 

Must have an array as an 





argument 

Dictionary Entry for Parameter Descriptions 

4 

Is a pseudo- variable 






Dictionary 

entries for parameter des- 

5 

Indicates to which of the 

criptions are 

identical with the 

normal 


two tables the offset refers 

entry for data 

variable, label variable. 



structure, file,, or entry points, 
for the following details: 

except 



Hash chain 

contains pointer to 

formal 

Internal Library Functions 

parameter 

type 1. After Phase 

FT this 



pointer is 

moved to the bytes contain- 



ing level 

and count 


Library routines, other than built-in or 




GENERIC functions, are known as Internal 
Library Functions. Their dictionary entry 

No BCD is 

pres ent 


format is as 

follows: 

No block 

identification is present for 



ENTRY or FILE 


Byte Number 

Description 






The code byte for an entry point - 

1 

Code Byte X'C2* 

referred to as entry type 6 - is 

X' 86 ' 

2-3 

Length 




4-5 

Hash chain 

ON Statements 



6-8 

Offset 






Entries for ON statements are 

made by 

9 

Library Code - identifies 
the particular Library rou- 

Phase FO, and 

contain the. following: 



tine required 

Eyte Number 

Description 


10 

Not used 

1 

Code Byte X'CD* 


11-12 

Code Bytes - the first code 
byte contains a value used 

2-3 

Length 



by phase MG to pick up com- 
plete information about the 

4-5 

AUTOMATIC chain 



Library function. The sec- 
ond code byte contains 

6-8 

Offset 



further information about 

9 

Code byte as supplied 

by the 


the function 


Read-In Phase 


13 

Level 

10 

Block level 


14 

Count 

11 

Block count 
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12 


n 


13 onwards n dictionary references of 
variables or ON condition 
entries 


O N Condition 


This entry is made by Phase FO: 
Byte Number Description 

Code Byte X*4D* 
Length 


1 

2-3 

4-5 


6-8 

9 


Hash chain later used as 
AUTOMATIC chain 

Offset 

Code byte as supplied by the 
read in phase 


10 


Block level 


4-5 Contains address of next 

entry in picture chain 

6-8 Offset in STATIC storage 

9 Code Byte (after Phase FQ) 

(See Code Byte description) 

10 P - the number of digit 

positions in field in numer- 
ic picture. 

11 Q - the number of digit 

positions after V character 
in numeric picture. Code 
X'80* represents 0, X*7F* 

represents -1, and X* 81* 
represents +1. 

12 W - apparent length of pic- 

ture. - length of picture 
following. (For a non- 
numeric picture the length 
is obtained in bytes 12-13.) 

14 onwards Picture. 


11 Block count Byte 9 - Code Byte 

12 BCD length- 1 


13 onwards BCD 


Bit Number Description 


CHECK List Entry 

This entry is made by Phase FO: 
Byte Number Description 


1 0 string 

1 numeric 

2 0 correct 

1 error 

3 0 not sterling 

1 sterling 


1 


Code Byte X'C8' 


4 


2-3 

4 


Length 

n where n is the number of 
dictionary references fol- 
lowing 


5 

6 


0 short 

1 long 

Not used 

0 decimal 

1 binary 


5 onwards 


Dictionary references 
bytes ) 


( 2n 


7 


0 fixed 

1 floating 


8 


Not used 


PICTURE Entry 

Dictionary Entry for Workspace Requirement 

The format of an entry in the picture 
table in the dictionary. 

The format for a dictionary entry for 
Byte Number Description workspace requirement is: 


1 


Code Byte X*C8' 


Byte Number Descri p tion 


2-3 Length = L+13 


1 Code Byte X'C8* or X'CA' 
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2-3 

Length = 8 

Byte Number 

Description 

4-5 

Total workspace required 

1 

Code Byte X'C7* 

6-8 

Offset 

2-3 

Length 

If the code 

byte is C8 this is the 

4-5 

STATIC chain 

temporary workspace used by pseudo-code 
(temporary type 1). If the code byte is 
C9, the temporary workspace is used in an 

6-8 

Offset in STATIC of DED 

immediate FORMAT. If the code byte is CA, 

9-11 

Actual DED if not pictured. 

the FORMAT is 

remote. 


If a picture is involved, 
the last two bytes are the 
dictionary reference of the 
picture table entry 

Dictionary Entry for Parameter Lists 

12-13 

Offset in STATIC storage of 




symbol table entry 

Dictionary 

entries for parameter lists 

15-16 

Dictionary reference of next 

have the following format: 


item in the symbol table for 




this block 

Byte Number 

Description 

17-18 

Dictionary reference of item 

1 

Code Byte X*C5' 


requiring entry in symbol 
table 

2-3 

Length 



4-5 

STATIC chain 



6-8 

STATIC offset 

Dictionary Entry for AUTOMATIC Chain 



Delimiter 


9-10 

Assembled length 



11 onwards 

Contains DCA's 

An entry for AUTOMATIC chain delimiter 



is made by phase PP. 



Byte Number 

Description 

Dictionary Entries for Dope Vector 



Skeletons 


1 

Code Byte X'CC' 



2-3 

Length 

Byte Number 

Description 

4-5 

AUTOMATIC chain 

1 

Code Byte X*C6' 

6-7 

Pointer to first second file 
entry 

2-3 

Length 

8-9 

Pointer to second second 

4-5 

STATIC chain 


file entry 

6-8 

Offset in STATIC 



9-10 

Dictionary reference or 

DED Dictionary 

Entry 


DECLARE number 



11 onwards 

Bit pattern of skeleton dope 

An entry 

for a DED is created by Phase 


vector 

PL. 


This entry 

is constructed by Phase PD 

Byte Number 

Description 



1 

Code Byte X*C7* 

Symbol Table Entry 

2-3 

Length 



4-5 

STATIC chain 

Symbol table entries are made by Phase 



PL. 


6-8 

STATIC offset 
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Actual DED 


Length 


If the DED requires a picture* the last 
two bytes contain the dictionary reference 
of the picture table entry. 

This entry has the same format as the 
first eleven bytes of a symbol table entry. 
No item will require both types of entry. 
The type required will be chained from the 
symbol slot in an item. 


4-5 DECLARE number 

6-7 Offset of the label's BCD 

in STATIC 

These entries are constructed when a 
statement label or a PROCEDURE or ENTRY 
label is mentioned in an ON CHECK list. 
Phase PD will allocate storage in STATIC 
for the BCD of the label* and place the 
offset of this in the above entry. 


DED 2 Entries 


These entries are generated when a DED 
is required for the conversion of a tem- 
porary result. 


Byte Number 


Description 


Code Byte X'Cl* 
Length = 11 


STATIC chain 


Offset 


Actual DED 


Dictionary Entry for FED - Format Element 
Descriptor. 


The entry for a FED is made by Phase NV. 

The entry is identical with a DED2 entry 
but with a length of 12, instead of 11. 
The storage allocated will be word-aligned. 


Dope Vector Entries for Temporaries 


This entry is constructed to indicate 
that a dope vector is required for a 
temporary result. At this stage the bytes 
in the entry contain the following: 

Byte Number Description 

1 Code Byte X'CO' 

2-3 Length 

4-5 AUTOMATIC chain 

6-8 Offset in the temporary type 

1 stack. After Phase QJ 

this will contain the offset 

from the start of the DSA 

9-10 Dictionary reference of dope 

vector skeleton entry 


11-12 


Length of string 


Byte Number 


Description 


Record Definition Vector Entr^ 


Code Byte X'Cl 
Length = 12 


STATIC chain 


STATIC offset 


Actual FED 


This entry is constructed when a varia- 
ble requires a record definition vector. 

Byte Number Description 

1 Code Byte X'C9* 

2-3 Length 


STATIC or AUTOMATIC chain 


Label BCD Entries 


Offset 


Label BCD entries are made by Phase FO. 
Byte Number Description 


11-18 


Dictionary reference of 
variable 

Eight bytes of RDV text 


Code Byte X'CE' 


19-20 


DECLARE number 
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Dope Vector Descriptor Entry 


Length of entry 


2-3 


4-5 

This entry is constructed for a struc- 
ture which requires a dope vector descrip- 
tor. 


Statement number of the 
DECLARE or other statement 
giving rise to the second 
file statement 


Byte Number 

Description 



1 

Code Byte X* 

CC* 


to 

1 

u> 

Length 



4-5 

STATIC chain 



6-8 

Offset 



9-10 

Dictionary 

structure 

reference 

of 

11-12 

Chain to RDV entry 

DECLARE number 

or 

13. . . 

DVD text set 

up by Phase 

JK 


6-7 Dictionary reference of the 

entry type 1 of the block 

from which the second file 
statement was extracted 

8-9 Dictionary reference of a 

three- byte slot in the dic- 
tionary. 

10 Type of second file state- 

ment, i.e. the function it 
performs. This is the sec- 
ond byte of the dictionary 
reference used to designate 
the function in the actual 
second file statement 


F ormat of a Second File Dictionary Entry 


8. DIMENSION TABLE 


Byte N u mber Description 

1 Code byte X'C8* 


Each entry containing dimension informa- 
tion will result in a table being set up. 
This table is shown in Figure 10. 


r t t ^ 

| Code Byte C8 1 Two-byte length | Flag Byte | 

j. -j- T x ^ 

| Zero byte |No. of dimensions (n) | Two-byte chain address | 

f x 1 1 

| VIRTUAL ORIGIN WORD j 

j. T T ^ 

| One-byte marker j Not used | Lower bound (halfword) | 

j. 1 -| 

| One-byte marker j Not used j Upper bound (halfword) | 

j. + + 1 

l -f + ] 

| | J nth upper bound | 

y 1 1 ^ 

n multipliers | | 


i j 

N ote: The one-byte marker is: 

00 if bound is fixed point constant; bound is a two-byte binary constant, left-adjusted. 
FF if pound is an expression; bound is a three-byte pointer to a second file statement in 


text. 

7F if the bound is inherited and has an MTF function. 

3F if the bound is inherited and is covered by a previous MTF function. 

FO if the bound is specified by an *. 

Figure 10. Dimension Table 
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APPENDIX D: INTERNAL FORMATS OF TEXT 


This appendix describes the internal 
formats of text at various points during 
the compilation of a source program. The 
appendix is organized in the following 
manner : 


1. Text code bytes after read in 

2. Text formats after read in 


3. 

Text code bytes 
slator 

on entry to the tran 

4. 

Triple formats 


5. 

Text code bytes 

in pseudo-code 

6 . 

Text formats in 

pseudo-code 


7. Text formats in absolute code 

8. Second file statements, and the for- 
mats of compiler functions and pseudo- 
variables 

9. Pseudo-code phase temporary result 
descriptors CTMPDs) 

10. Internal and external Library calling 
sequences 

11. Descriptions of terms and abbrevia- 
tions used in text during a compila- 
tion 

Note: The internal formats of text during 
compile-time processing are described 
in Appendix J. 
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TEX T CODE BYTE AFTER THE READ- IN PHASE 

First Level Table (00 to 7F) 


0123 4 5 6 7 

0 
1 

2 

3 

4 

5 

6 

7 

8 
9 
A 

B 
C 
D 
E 

F 
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First Level Table (80 to FF) 


"T — 

|A 


*T 1 

| FL DEC IMAG j 


0 1 TO 


LINE 


SN 


h- 


ALLOCATE 


CALL 


ENTRY 


| ASSIGN BY 
I NAME 


FL DEC REAL 


BY 


SL 


FL BIN IMAG 




FREE 


RETURN 


PROC 


SL* 


FL BIN REAL 


+- 


WHILE 


CN 


FIX DEC IMAG 


DISPLAY 


GOOB+ 


EGIN 


I GET 


FIX DEC REAL 


SNAP 


COL 


| CL 


FIX BIN IMAG 


SIGNAL 


GO TO 


ITDO 


WRITE 


PUT 


END DO 


FIX BIN REAL 


4 - 


SYSTEM 


2nd LEVELj 
MARKER j 


END ITDO 


INTEGER 


WAIT 


REVERT 


DO 


READ 


j UNLOC K 


END 


STG DEC REAL 


THEN 


4 - 


+- 


DELAY 


INIT LABEL 


IF 


4 - 


j LOCATE * j REWRITE 


END PROG 


ON 


CONTROL 

VARIABLE 


SN2 


ARRAY 

CROSS SECTION 


-H 


EXIT 


NULL 


DECLARE 


ELSE 


I DELETE 


OPEN 


END BLOCK 


CHAR CONSTANT 


4 - 


X 


NO SNAP! 


SUB 


+- 


F | STOP 


ASSIGN 


FORMAT 


J. X 

+ Go Out Of Block 


-X X 

* Not second version 


I CLOSE 
x 


BIT CONSTANT 

X J 
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S econd Level Table (00 to 7F) (preceded by second level marker byte C8) 


T EXTERNAL T 


FILE 


DECIMAL 


OPTIONS 


BINARY 


IRREDUCIBLE 


INTERNAL 


POINTER * 


LIST 


FLOAT 


REDUCIBLE 


AUTOMATIC 


EVENT * 


EDIT 


EVENT 


FIXED 


RECURSIVE 


STATIC 


TASK * 




TITLE 


DATA 


PRIORITY 


REAL 


ABNORMAL 


CONTROLLED 


ATTRIBUTES 


STRING 


REPLY 


COMPLEX 


NORMAL 


SECONDARY 


PAGESIZE 


SKIP 


PRECISION 1 


USES 


IDENT 


LINE 


PRECISION 2 


SETS 


LINESIZE 


PAGE 


VARYING 


ENTRY 


COPY 


4 - 


PICTURE (NUM) 


GENERIC 


INITIAL 


INTO 


BIT ATTRIBUTE 


BUILTIN 


LIKE 


FROM 


TASKOP * 


CHAR ATTRIBUTE 


DEFINED 


SET * 


DIMS 


ALIGNED 


KEY 


LABEL 


PACKED 


NOLOCK * 


PICTURE (CHAR) 


IGNORE 


FORMAT 

LIST 


BY NAME 


RETURNS 


POS 


* Not second version 
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Second Level Table (30 to FF) 


r t 1 

CONVERSION! CONDITION 


0 | BUFFERED 


MAIN 


OVERFLOW 


UNBUFFERED 


+- 


EXCLUSIVE 


REENTRANT 


UNDERFLOW 


NAME 


■+* 


keyed 


STREAM 


SECONDARY 


ZERODIVIDE 


TRANSMIT 


RECORD 


BACKWARDS 


FIXED 

OVERFLOW 


ENDFILE 


CHECK 


SEQUENTIAL 


DIRECT 


SUBSCRIPT 

RANGE 


ON RECORD 


PRINT 


ENVIRONMENT! 


ERROR 


END PAGE 


INPUT 


+- 


OUTPUT 


FINISH 


KEY 


NOCHECK 


UPDATE 


SIZE 


UNDEFINED 

FILE 


F I 


2. TEXT FORMATS AFTER THE READ- IN PHASE 

PROCEDURE Statement 


In the statement formats in this sec- 

The format 

of a PROCEDURE 

statement 

tion. 

the code bytes SN, SL, SL' , POS, and 

as follows : 



OB have 

the following meanings: 




SN 

statement number 

Byte Number 

Description 


SL 

statement label 

1 

Code byte SN or 

SL 

SL* 

initial label 

2-3 

POS 


POS 

following SN is a 2-byte statement 
number 

4 

OB 



following SL is a 2-byte dictiona- 
ry reference of statement label or 

5 

PROCEDURE 



entry type 1 

6 

Block level 


OB 

prefix options byte, specifying ON 
conditions enabled for the state- 

7 

Block count 



ment 

8-10 

PROCEDURE-BEGIN 

chain 

The 

abbreviation SQUID means an iden- 

11-13 

DECLARE chain 


tif ier f 
f ied. 

possibly subscripted and/or quali- 

14-16 

ENTRY chain 
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17 

18... 


Left parenthesis - optional 

Format parameter list - 
optional 

Right parenthesis - optional 
Attribute marker - optional 
Attribute code - optional 
Attribute list - optional 
End of statement semicolon 


4 

5 

6 
7 

8-10 


11-13 

14 


OB 

BEGIN 

BLOCK LEVEL 

Block count 

PROCEDURE-BEGIN chain 

DECLARE chain 

Statement terminating 
semicolon 



ENTRY Statement 


The format of an ENTRY statement is as 
follows : 


Description 
Code byte SN or SL 
POS 
OB 

ENTRY 

ENTRY chain 
Block level 
Block count 

Left parenthesis - optional 

Formal parameter list - 
optional 

Right parenthesis - optional 

Attribute marker - optional 

Attribute code - optional 

Attribute List - optional 

Statement terminating 
semicolon 


BEGIN Statement 

The format of a BEGIN statement is as 
follows : 

Byte Number Description 

1 Code byte SN or SL 

2-3 POS 


END S ta temen t 

The format of an END statement is as 
follows : 

Byte Numb er Description 

1 Code byte SN or SL 

2-3 POS 

4 OB 

5 ENDl, END2, or END 3 - ENDl 
ends a PROCEDURE or BEGIN 
block; END2 ends an itera- 
tive DO block; END 3 ends a 
non-iterative DO block 

6 Block level for the contain- 
ing block 

7 Block count for the contain- 
ing block 

8 Statement terminating semi- 
colon 


IF Statement 


The format of an IF statement is as 
follows ; 


Description 

Code byte SN or SL 

POS 

OB 

IF 

Expression 

THEN 
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Statement or Group 


4 

OB 


ELSE - optional 


5 

ON 


Statement or Group 
optional 


6 

ON Condition 

Note: The semicolon preceding the ELSE 

has 



been deleted 



7 

SNAP or NOSNAP 




8 

Statement or block 

DO Statement 



2. 


The format 

of a DO statement is 

as 

Byte Number 

Description 

follows : 



1 

Code byte SN or SL 

Byte Number 

Description 


2-3 

POS 

1 

Code byte SN or SL 


4 

OB 

2-3 

POS 


5 

ON 

4 

OB 


6 

ON Condition 

5 

DO or ITDO 


7 

System 

6 

CV 


8 

SNAP or NOSNAP 

7 

BKC 




8.. . 

Squid 





DO equals 


ASSIGN Statement 


Expression 


The format 

of the ASSIGN statement is 


TO 


follows : 



Expression 


Byte Number 

Description 


BY 


1 

Code byte SN or SL 


Expression 


2-3 

POS 


WHILE 


4 

OB 


Expression 


5 

ASSIGN or ASSIGN BY NAME 


Statement terminating 


6 . . . 

Squid 


semicolon 



Comma - optional, 
may be repeated 

ON Statement 




Squid - optional, 
may be repeated 

The ON statement takes one of the 

fol- 


Variable number of bytes 

lowing formats: 




optional, may be repeated 

1. 




ASSIGN 

Byte Number 

Description 



Expression 

1 

Code byte SN or SL 



Statement terminating 

2-3 

POS 



semicolon 
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yf A.IT Statement 


The WAIT statement has the following 
format : 


B yte Number 
1 


2-3 

4 


5 

6 

7... 


Description 
Code Byte SN or SL 
POS 
OB 

WAIT 

Left parenthesis 
Identifier 

Left parenthesis - optional 
Expression - optional 
Right parenthesis - optional 
Comma 

Further optional parentheses 
and expressions 

Right parenthesis 

Left parenthesis - optional 

Expression - optional 

Right parenthesis - optional 

Statement terminating 
semicolon 


CALL Statement 


The CALL statement has the following 
f ormat : 


Byte Number 
1 

2-3 

4 

5 


Descrip t ion 
Code byte SN or SL 
POS 
OB 

CALL 


12... Right parenthesis 

Left parenthesis 

Argument List 

Right parenthesis 

Statement terminating 
semicolon 


GO TO Statemen t 


The format of the GO TO statement is as 
follows : 

Byte Number Description 

1 Code byte SN or SL 


2-3 POS 

4 OB 

5 GO TO 

6... Squid 

Statement terminating 
semicolon 


SIGNAL and RE V ERT Statements 

The SIGNAL and REVERT statements have 
the following format: 

Byte Numbe r Descri p tion 

1 Code byte SN or SL 

2-3 POS 

4 OB 

5 SIGNAL or REVERT 

6 ON Condition 

7 Statement terminating 
semicolon 


DISPLAY Statement 


6-8 

CALL chain 

9 

Identifier 

10 

Left parenthesis 

11 

Expression 


The format of the DISPLAY statement is 
as follows: 

Byte Number Description 

1 Code byte SN or SL 
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2-3 

4 

5 

6 

7. . . 


POS 

OB 

DISPLAY 

Left parenthesis 

Expression 

Right parenthesis 

Left parenthesis - optional 

Squid - optional 

Right parenthesis - optional 

Statement terminating 
semicolon 


7.,. 


DELAY Statement 


The format of the DELAY statement is as 
follows : 


B yte Number 
1 

2-3 

4 

5 

6 

7. . . 


Descriptio n 

Code byte SN or SL 

POS 

OB 

DELAY 

Left parenthesis 

Expression 

Right parenthesis 

Statement terminating 
semicolon 


Expression - optional 

Right parenthesis - optional 

Statement terminating 
semicolon 


STOP,, EXIT, and Null Statements 


The format of STOP, EXIT and Null state- 
ments is as follows: 


Byte Number 
1 

2-3 

4 

5 

6 


Description 

Code byte SN or SL 

POS 

OB 

Statement identifier 

Statement terminating 
semicolon 


INITIAL Label DECLARE Statements 


The format of INITIAL label DECLARE 
statements is as follows: 


Byte Numbe r 
1 

2-3 

4 

5 

6-8 

9... 


RETURN Statement 


Descri pt ion 

Code byte SN or SL 

POS 

OB 

INITIAL Label DECLARE 

DECLARE chain 

INITIAL label 

Statement terminating 
semicolon 


The format of the RETURN statement is as 
follows : 

B yte Number Description 

1 Code byte SN or SL 

2-3 POS 

4 OB 

5 RETURN 

6 Left parenthesis - optional 


DECLARE and ALLOCATE Statements 

The format of DECLARE and 
statements is as follows: 

Byte Number Description 

1 Code byte SN or SL 

2-3 POS 

4 OB 


ALLOCATE 
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5 DECLARE or ALLOCATE 

6-8 DECLARE chain or ALLOCATE 

chain 

9... Declaration list 

Statement terminating 
semicolon 

F ORMAT Statements 



4 

5 

6 . . . 


The format of the FORMAT statement is as 
follows : 


Descri p tion 

Code byte SN or SL 

POS 

OB 

OPEN or CLOSE 

File group list 

Statement terminating 
semicolon 


Byte Number Descriptio n 

1 Code byte SN or SL 

2-3 POS 


READ, WR ITE, SE T, PUT . REWRITE. UNLOCK, and 
DELETE Statements 


4 OB 

5 FORMAT 

6... Format list 

Statement terminating 
semicolon 


The format of READ, WRITE, GET, PUT, 
REWRITE, UNLOCK, and DELETE statements is 
as follows : 


Byte Number 


Description 


Code byte SN or SL 


Format items are replaced by one-byte 
codes 


2-3 

4 


POS 

OB 


OPEN an d C LOSE Statements 


The format of OPEN and CLOSE statements 
follows. 


5 

6 . .. 


Statement identifier 

Option list 

Statement terminating 
semicolon 
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3 . TEXT CODE BYTES ON ENTRY TO THE 
TRANSLATOR PHASES 



0 

1 

2 

3 

4 

5 


6 

7 



r — — 

"T 

~r — 

_ T — - - — 

"T 

"T 

T 

— 

■ T — — - - — 

“1 


1 

1 

1 

| COMPILER 

1 

1 

1 


| COMPILER 


0 

J DICT. REF. 

j FILE 

1 

| FUNCTION 

1 

| FILE' 

1 


j FUNCTION' 



f 

4 

4 



4 

••f 

4 — 

— 

4 

H 

1 

I 

1 

1 

1 

| COMMA 

1 c 

| DO 

E 2 UALS 

| } 



f 

4 

4 

“+ 

4 

4 

4 — 

— 

4 

H 


1 

1 

1 

| COMPILER 

1 

1 

1 


| COMPILER 


2 

1 

| LIST 

1 

| FUNCTION 

| FCOMMA 

| LIST* 

1 


| FUNCTION CALL 

v j 


1 

1 

1 

1 CALL 

1 

1 

1 


1 



|- 

4 — — 

4_ 

-+ 

'+ — - 

4 

4 — 

— 

4 

H 

3 

1 

| EDIT 

J EVENT * 

1 

1 C 

| EDIT' 

1 


| 



J. 

4 

4 

“+ ~ — 

4 

4 

4 — 

— 

4 

H 


1 

1 

1 

| COMPILER 

| COMPILER | 

1 


(COMPILER 


4 

j TITLE 

j DATA 

j PRIORITY 

* J PSEUDOVAR 

j FUNCTION DATA* 

1 


j PSEUDOVAR* 



1 

1 

1 

1 

| COMMA 

1 

1 


1 



f 

4 

4 

-+ 

4 

4 

4 — 

— 

4 

H 

5 

1 ATTRIBUTES 1 STRING 

| REPLY 

1 

l> 

| STRING' 

1 

< 

1 + 



V 

4 

4 

-+ 

4 

4 

+ — 


4 

H 


1 

1 

1 

1 

1 COMPILER! 

1 


1 


6 

j PAGESIZE 

j SKIP 

1 

| ERROR 

| ASSIGN 

1 

1 


| NDX 



j. 

4 

4 — 

-+ 

4 

4 

+ — 

— 

4 

H 


1 

1 

| BUY 

1 

1 

1 MULTIPLE! 


1 


7 

| IDENT 

| LINE 

| CHAMELEON 

1 BUY ASSIGNI ASSIGN 

| ASSIGN 

1 

^ 1< 

j / 



J- 

4 

4 

-I 

4 

4 - - - - 

+ — 


4 

H 

8 

j LINESIZE 

| PAGE 

1 

j ARCO 

j DROP 

j TMPD 

1 LEFT 

| OFS 



1- 

4 - 

4 



4 — — _ 

4 

+ 

— 

4 

H 

9 

1 

(copy 

1 

1 

1 II 

j LD 

1 

1 ~ 

I * 



I- 

4 

4 

- + 

4 

4 

4 — 


4 

H 


1 

1 

1 

1 

JBUYB 

1 

1 


1 


A 

j INTO 

j KEYTO 

1 

| PSEUDOVAR 

j CALSE 2 

j TT 

1 


j PSEUDOVAR' 



1- 

4 

4 

-+ 

4 

4 

+— 

— 

4 

H 


1 

1 

1 

| END 

1 

1 

1 


1 


B 

| FROM 

j TASK * 

| LIST MARK 

| LIST MARK 

1 1 

j JMP 

1 

= 

(PREFIX - 



J. 

4 

4 


4 _ — . 

4 

+ — 

— 

"I 

H 

C 

j SET * 

J RPL 

1 

| FUNCTION 

jCNVA 

j RPL' 

1 


(FUNCTION' 



f 

4 

4 

“+ - 

4 

4 

+ — 

— 

4 

H 


1 

1 

1 

j ARGUMENT 

1 

1 

1 


1 


D 

j KEY 

1 

1 

| MARK 

1 s 

1 

1 

> 

| PREFIX + 



* 

4 

4 

-+ 

4 

4 

+ — 

— 

4 

H 


1 

1 

j DEFINED 

j SUBSCRIPT 

1 

LITERAL 

1 DEFINED 

1 


E 

j NOLOCK * 

j KEYFROM 

| SUBSCRIPT 

I 

|CNVB 

1 CONSTANT! SUBSCRIPT' 

j SUBSCRIPT' 



J. 

4 

4 

-+ 

4 

4 

| 

— 

4 

H 


1 

| FORMAT 

1 

1 

1 

j FORMAT 

1 


1 


F 

j IGNORE 

1 LIST 

1 

1 

1 i 

| LIST* 

1 

< 

j ** 



L _ 

.X 

_x_ 

_X_ _ _ 

.j. 

-X _ 

X 



_j 


* Not second version 
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8 

9 

A 

B 

C 

D 


E 

F 



r~ 

T 

T 

T ~ — 

- T ~ - 

T “ 

- T 


T 

‘1 

0 

| TO 

| LINE 


! 

j TO ' 

j SN 

1 


1 



h 

4 

4 

4 

4 

-+ 


— 

-+ 

H 

1 

1 ALLOCATE I 

|call 

1 

1 

1 

| CALL' 

| EIO 



K 

4 

4 

4 

4 

+ ~ 

-+ 


-+ 

H 

2 

j BY 

|PAGE 

|B 

1 

j BY' 

| SL 

1 


1 



j. 

4 

4 

4 

4 

-+ 

-+ 


-+ 

H 

3 

| FREE 

1 

i RETURNI PROC 

1 

1 

i 


| PROC' 



V 


4 

4 

4 

~+ 



“+ 

H 

4 

| WHILE 

| SKIP 

IP 

1 

j WHILE' 

jCN 

|P* 


! 



j. 

4 

4 

4 

4 

-+ 

-+ 


-+ 

H 

5 

1 

1 DISPLAY IGOOB 

| BEGIN 

| SORT 

| GET 

1 


| BEGIN’ 



|- 

4 - 

4 — 

4 

4 - - 

*4 




-+ 

H 

6 

| SNAP 

| COL 

1 R 

1 

j SNAP' 

j CL 

1 


1 



K 

4 

4 

4 

4 — 

i - 

4 


“+ 

H 

7 

1 

1 SIGNAL 

| GOTO 

| ITDO 

| WRITE 

| PUT 

j END 

DO 

| ITDO' 



1 - 

4 

4 

4 

4 - — 

*4 ~ — 

4 


-4 

H 

8 

| SYSTEM 

| E 

1 

1 

| SYSTEM' 

| E ' 

j END 

ITDO 

1 



J. 

4 

4 

4 

4 

+ — 

-+ 


— — — 

H 

9 

j WAIT 

j REVERT 

1 

JDO 

j READ 

| UNLOCK * 

| END 


j DO' 



I- 

4 

4 — 

4 

4 

+ ~ 

-+ 




H 

A 

| THEN 

1 F 

1 G 

1 

1 

j F* 

| G' 


1 



1 - 

4 

4 

4 

4 

+~ - — 


— 

“i — — — - - 

H 

B 

| DELAY 

1 

1 

| IF 

| LOCATE 

* J REWRITE 

| END 

PROG 

| IF* OR ON 



Y 

4 


4 

4 

-+ 

-+ 


-+ 

H 


1 

1 

1 

1 

i 

1 

1 


I ARRAY 


C 

jCV 

1 

| SELL 

| SN2 

| CV' 

1 

1 


| CROSS SECTION! 


I- 

4 _ 

4- 

4 

4 

-+ 

4 — 


-+ 

H 

D 

| EXIT 

| NULL 

| BUY 

J ELSE 

| DELETE 

* | OPEN 

j END 

BLOCK 

1 

1 


Y 

4_ _ 

4 

4 

4 

+ 

4 


•f ~ - - 

H 

E 

1 

1 c 

1 x 

1 NOS NAP | 

1 C' 

| END 

PROG 

2 | NOSNAP' 

1 


j. 

4 

4 — ■ 

4 

4 - 

_* 

- + 

— 

*4 — 

H 

F 

J STOP 

| ASSIGN 

| BUYS 

1 FORMAT 1 

| CLOSE 

1 

i 

| FORMAT 

1 


L 

.X 

-X 

-X 

_I_ 

-X 



_X 

.j 


* Not second version 
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4. 


FORMAT OF TRIPLES 


The triples produced as output from the 
translator phase each consist of five 
bytes, an operator followed by two 2-byte 
fields. Each of the two-oyte fields may be 
occupied by an operand, which may be a 
dictionary reference, a code byte or code 
bytes, or a numeric parameter. Two zero 
bytes in place of a dictionary reference 
operand imply that the operand is the 
result of previous operations, and that its 
type and location are described in a TMPD 
in the text. 

The number of operands and the fields 
which they occupy depend upon the type of 
triple. The following table contains this 
information for all the triples used in the 
compiler. 


T 1 

FIELD 2 


TRIPLE TYPE 


HEX 

CODE 


FIELD 1 


TITLE 


04 


OPERAND 


attributes 


05 


OPERAND 


PAGESIZE 


06 


OPERAND 


IDENT 


07 


OPERAND 


LINESIZE 


08 


OPERAND 


INTO 


0A 


OPERAND 


FROM 


0B 


OPERAND 


KEY 


0D 


OPERAND 


IGNORE 


OF 


OPERAND 


FILE 


10 


OPERAND 


*+- 


LIST 


12 


EDIT 


13 


DATA 


14 


STRING 


15 


OPERAND 


SKIP 


16 


OPERAND 


LINE 


17 


OPERAND 


PAGE 


18 


COPY 


19 


KEYTO 


1A 


OPERAND 


RPL 


1C 


KEYFROM 


IE 


OPERAND 


FORMAT LIST 


IF 


UP 


20 


OPERAND 


-+- 


GIVING 


21 


OPERAND 


DOWN 


22 


OPERAND 


REPLY 


25 


OPERAND 


BUY CHAMELEON 


27 


OPERAND 


MTA 


27 


OPERAND 

OPERAND 


OPERAND 2 


MSA 


28 


OPERAND 2 


DEFINED 

SUBSCRIPT 


2E 


OPERAND 
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| COMPILER ASSIGN 

j. — T 

I ASSIGN 


COMPILER 

FUNCTION 


COMPILER 
FUNCTION CALL 


COMPILER 
PSEUDO- VARIABLE 


BUY ASSIGN 


PSEUDO-VARIABLE 


FUNCTION 


SUBSCRIPT 


COMMA 


FUNCTION COMMA 


COMPILER 
FUNCTION COMMA 


CONCATENATE 


BUY B 


LIST' 


EDIT' 


DATA* 


STRING' 


STMPD 


MULTIPLE ASSIGN 


LITERAL CONSTANT 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 2 


OPERAND 


OPERAND 


OPERAND 2 | 


OPERAND 2 j 


OPERAND 2 j 


OPERAND | 


OPERAND 2 j 


OPERAND | 


OPERAND 2 | 


OPERAND 2 j 


OPERAND 


OPERAND 2 | 


OPERAND 2 | 


OPERAND 2 


OPERAND 2 


OPERAND 


♦This triple may 
format lists. 


have two operands in 


j GREATER 

I- 

| DEFINED 
I SUBSCRIPT' 


FORMAT LIST' 


DO EQUALS 


DOWN' 


ERROR 


LESS/EQUAL 


GREATER/EQUAL 


NOT EQUAL 


EQUAL 


COMPILER 

FUNCTION' 


COMPILER 
FUNCTION CALL' 


MINUS 


COMPILER 
PSEUDO- VARIABLE 1 


DIVIDE 


MULTIPLY 


PSEUDO- VARIABLE ' 


PREFIX MINUS 


FUNCTION’ 


PREFIX PLUS 


SUBSCRIPT' 


EXPONENTIATE 


ALLOCATE 


WHILE 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 2 


OPERAND 2 


OPERAND 2 


OPERAND 2 


OPERAND 2 


OPERAND 2 


OPERAND 2 


OPERAND 2 


OPERAND 2 


OPERAND 2 


OPERAND 2 


OPERAND 2 


OPERAND 


OPERAND 


OPERAND 2 


OPERAND 


OPERAND 
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DELAY 


END ALLOCATE 


DISPLAY 


COLUMN 


SIGNAL 


REVERT 


RETURN 


GO OUT OF BLOCK 


GO TO 


OPERAND 


ITERATIVE DO 


I BC | 
X X 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 2 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


operand 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 


OPERAND 2 


| OPERAND | 
x j 


NOSNAP 


FORMAT 


WHILE 1 


WRITE 


STATEMENT NUMBER 


STATEMENT LABEL 


COMPILER NUMBER 


COMPILER LABEL 


UNLOCK 


REWRITE 


CLOSE 


END PROG 


END BLOCK 


END PROG 2 


END I/O 


BEGIN' 


ITERATIVE DO' 


IF' OR ON 


FORMAT' 


j OPERAND 


OPERAND 


j OPERAND 


OPERAND 


OPERAND 1 | OPERAND 2 


OPERAND lj OPERAND 2 


OPERAND 1 j OPERAND 2 


OPERAND lj OPERAND 2 


OPERAND 


| OPERAND 


OPERAND 


OPERAND 


| OPERAND 


OPERAND 


OPERAND 
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5. 


TEXT CODE BYTES IN PSEUDO-CODE 


0 1 2 3 45678 9AB C DEF 

0 
1 
2 

3 

4 

5 

6 

7 

8 
9 
A 
B 
C 
D 
E 
i 


r T T T T T 

DCVO j OS Ml | BGPE j BLBS | LCR j LCDR 

^DCVl joSM2 "{EOB | BLBS* | BCR {SPM 
^DCV2 j ALLOC | | BUYS | HER | LTR 

^DCV3 |dCA3 J | PINS | HDR | LTER 

h 


t t r r t t 

LCER | LM | BCTA' J LH j LA j CLI j CLC 

-f i i i + + 

CLR } SLA | BC jCH j CL | MVI j MVC 

ALR | SLDA | DCF | AH J AL | NI | MVN 

+ + + + + + 

SLR j SLDL j BCTA j SH | SL | 01 | MVO 


T - 

TR | 

+- 

TRT j 

+- 

PACK | 

1. 

UNPK I 


+ -1 

I I 

+ ^ 

I I 

+ -1 


+ — + 1 


DCV4 | DCA4 

J. 1 

DCV8 J FREE 

J. 1 

DROP | BUY 

^EQU | SELL 

PROC J PROC' 

BEGIN] BEGIN' 

l- + 

STK j ADV 
EOP J PLBS 

f + 

E0P2 [PCBS 

K + 

IPRM | IPRM' 
EPRM J EPRM* 

h + 

ITDO | ITDO ' 

JL 


j ADR j RWA I BCTR j LTDR 


RER jSLL |BCT j 




| SN3 | APRM {NR j LNR 


LPR | SRA | N 


+ + + + + + + 


{ BCIN | USNG | OR | LNER 


LPER | SRDA ] 0 




| STOP {DATA |XR |LNDR 


LPDR J SRDL{ X 




j BGNP { FMT | LR { LDR 


LER | SRL | L 


+ + + + 1 + 1 


j BGNP' | FMT' | CR | CDR 


CER | STM | C 


| 1 1 + + + + 


DROB’ 


AR 


I ADR 


AER |BXH | A 




{PLBS' l 


| SR {SDR 


SER {BXLEjS 


+ + + + + + + 


PSLD | ERROR | MR | MDR 


MER | SL1 ] M 


| 1 + 1 1 + 1 


{ABS | PFMT | DR {DDR 


DER | SN {D 


+ + + + + + + 


jABS' | 


[SVC | AWR 


AUR {CLI {IC | 


+ + + + + + + 


| ALIGN | 
JL L. 


| BALR { SWR 


SUR | CN {BAL 

1 X 


MH 
STH 
STRD 

| STD 

+ 

j LD 

CD 

AD 

| SD 

MD 

DD 

AW 

| SW 
X 


STC jsSM 
ST |TM 
stre|xi 
STE j LA' 
LE | L' 

CE { BCT' 
AE | FMT 
SE | FMT* 
ME | SN2 
DE | 0SM3 
AU { ADI 
SU | 

1 


| MVZ 

+ 

| NC 

+ 

j OC 

4 

| xc 

4 

{ ZAP 

4 

| CP 

4 

j AP 

4 

| SP 

4 

{MP 

4 

| DP 

| ED 

4 

| EDMK 

X 


IGNORE | 

+- 

I 

+- 

CONV 1 



CONV* | 

+- 

USSL | 

+- 

DRPL | 

+- 

CNVA | 

+- 

SINL | 

1- 

CNVC | 
1- 


I 

+- 

I 

+- 

I 

X. 


+ — ^ 
I I 

+ — -I 
I I 

+ — -I 
I 1 

+ — ^ 
I I 

+ — \ 
I I 

+ — -I 
I I 

+ — \ 

I I 

+ — -I 
I I 

+ — 1 
I I 

+ — 1 
I I 

+ — ^ 


6. TEXT FORMATS IN PSEUDO- CODE 


Pseudo-code Design 


Pseudo-code is essentially a symbolic 
representation of machine code, designed in 
such a way that it is possible to directly 
transform it into executable machine code 
by an assembly process. 

A unit consists of a one-byte operation 
code followed by, normally, a two or four- 
byte field and on the other occasions by a 
variable length field. The bit pattern of 
the operation code indicates the type of 
unit which it heads. 

By having most units either three or 
five bytes long, the scanning of pseudo- 
code is a fairly straightforward process. 

The format of the various pseudo-code 
units is as follows: 


immediately after the symbolic 
representation of the instruction to 
which if refers. 


Five-byte unit: there are four basic 
five- byte units which have the follow- 
ing formats. 

Bytes 


1 


2 

2 

*" 1 ' T 

OP J 

1 


| R2 

1 


Rl 

1 

CODE 

0 


DICT REF 


L X X J 

Bytes 


1 

2 


2 

.. . j .. 

OP | 

1 

R3 

T — 
1 

1 

OFFSET 

CODE J 


1 

X 



Three- byte unit: this consists of a 
one- byte operation code followed by a 
two-byte literal offset, and it appears 


332 



Bytes 


1 


2 


2 


L Rl, JOE ( R 3 ) 


r T t 1 

I OP | | | 

I I R1 | R2 | 

I CODE | | | 

L X X J 

r t t 1 

j OP j 1 j R2 j 

J | HEX | | 

j CODE ] 0 | DICT REF | 

L X X J 


Using these units with, if necessary, a 
three-byte unit, it is possible to symboli- 
cally represent any possible RR, RX, RS or 
SI instruction. 


Vari able length unit: the format of 
this is : 

Bytes 

1 2 

r T T 1 

i OP I | 1 

j J FLAG J VARIABLE j 

I CODE | | | 

L X X J 

With a specially designed variable field 
described by a two-byte flag, it is possi- 
ble to represent any SS instruction with 
this unit. 

The first byte of the two-byte flag 
indicates the format of the variable field 
and the second gives the length of the 
total unit. 


Bytes 

12 2 

r r t 1 

| L |0 R1 j DR(JOE) | 

L X X J 

r t 1 

| 0SM2 I R3 j 

L X J 


L Rl, JOE+24 (R3) 

Bytes 

12 2 


r 

1 L 
l _ 

i 

i 

i 

O | 
i 
i 

h — t 
i 

Rl 

"T — 

1 

-X_. 

DR(JOE) 

j 

r 

| OSM3 

T 

1 

24 

_ T - 
1 

R3 

1 

L _ 

-X 


-X— 



Alternatively, JOE 

might 

be 

a base 

reg- 


ister in which case the dictionary ref- 
erence would be replaced by a symbolic 
register. The two forms are distinguished 
by setting the flag bit of the first 
symbolic register equal to one when a base 
register is intended. 


L Rl, 0 ( R3, R2) 

Bytes 

12 2 

r t t t 

j L j 1 Rl j R2 j 

i X x j 

r T 1 

| 0SM2 | R3 | 

L X J 


R X Inst r uctions 


The following examples illustrate the 
basic forms of an RX instruction and the 
way in which they are represented in 
pseudo- code. 

L Rl , JOE 

Bytes 

12 2 

r t t 

j L | 0 Rl J DR (JOE) 

L X X 

L Rl, JOE+24 

Bytes 

1 2 2 

r t t 

j L JO Rl j DR ( JOE) 

L X X 

r t 1 

j 0SM1 j 24 j 

L X_. J 


When a branch instruction is generated 
which branches to a compiler generated EQU 
value, bit two of the second byte is set to 
one to indicate that the second field is in 
fact an EQU value. 


Bytes 

11 12 

r t r r 1 

| BC | 01 | HEX | EQU VALUE | 

L X X X J 


Bytes 

11 12 
r T T T 1 

I 111 I R2 | 

j BC j 0 j HEX j- .j 

| | 0 j | DICT REF j 

C X X X J 
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RS Instructions 


SI Instructions 


The following examples illustrate the 
basic forms of an RS instruction and the 
way in which they are represented in 
pseudo- code: 


BXH R1,R2 # ALPHA 


Bytes 


The following examples illustrate the 
basic forms of an SI instruction and the 
way in which they are represented in 
pseudo-code: 


CLI BETA, X* FF* 


Bytes 


DR (ALPHA) 


" T 1 

| DR (BETA) | 

-X j 


Bytes 


CLI BETA+4, X* FF* 


BXh Rl, R2, ALPHA+24 


Bytes 


r t* 

| 0SM3 | 

L X. 


DR (ALPHA) 


Alternatively, ALPHA might be a base 
register in which case the dictionary ref- 
erence would be replaced by a symbolic 
register as in the RX instruction. 


SLA Rl , 6 


Bytes 


r T - 

| SLA | 

L X. 


r T 

| CLI | 0 

L X 


DR (BETA) 


Alternatively, BETA might be a base 
register in which case the dictionary ref- 
erence would be replaced by a symbolic 
register. 


SS Instructions 


Basically, an SS instruction consists of 
two base registers and a length byte. 
Since this does not conform to the format 
of other items of pseudo-code, it is neces- 
sary to represent an SS instruction with a 
variable length field, the length of which 
is specified in the second of two flag 
bytes immediately following the operation 
code. 


RR Instructions 


The following example illustrates the 
form of an RR instruction and the way in 
which it is represented in pseudo-code. 


AR Rl, R2 


Bytes 


This variable form of pseudo-code will 
be used to convey items of information 
internally between compiler phases, at the 
same time maintaining the items in the 
guise of pseudo-code. 


Variable Length Item FLAG 


The first bit of the FLAG indicates 
whether or not the unit represents a 
machine instruction. In the former case, 
the format of the instruction is: 

Bytes 

11 1 12222 

r T T T T T T T 1 

I OP I I | | | | | | 

j j FLAG | LENGTH | FI | F2 j F3 | F4 j F5 | 

1 CODE J | 1 I I I I I 

L X X X X X X X J 
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The format of the FLAG is: 

Bit Zero One 


1 

2 

3 

4 


Always zero 
F2=dict. ref. 
F3=dict. ref. 
F4 not present 


F2=sym reg. 
F3=sym reg. 
F4 present 


Bytes 


ZAP 

1 1 


ALPHA+3 ( 14) , BETA( 6) 
11 2 


fzApIx^O*! 10 ]*13 5 {dRCALPHA)] 

L X X X X J 


2 2 

r r 1 

j DR(BETA) | 3 j 

L x J 


5 F5 not present F5 present 
6-8 Not used 


The FI field is identical to the length 
field in the SS machine instruction. The 
field contains one or two lengths which are 
each one less than the corresponding 
lengths used in Assembler Language. The F4 
and F5 fields contain literal offsets. 


MVC ALPHA ( 6) , BETA+11 

Bytes 

1111 2 

r T T T T 1 

J MVC j X' 08* j 10 j 5 | DR (ALPHA) | 

l X X X X J 

2 2 

r t 1 

j DR (BETA) | 11 j 

L X J 


Compiler Function (Bit 1=1) 


In compiler functions, the format of the 
FLAG depends on the operation code. Thus: 


Bytes 


AP 


1 1 


ALPHA+ 3(14), BETA+11 ( 6 ) 
112 


r T T 

jAP IX'lS'j 
L X X. 

2 


T T n 

12 1 13 5 j DR (ALPHA) | 
X X J 

2 2 


r t 

j DR (BETA) | 

L X. 


_ T 1 

3 1 HI 


.x J 


r T T T T 1 

j CONV j FLAG | LENGTH | Fl j F2 | 

L X X X X J 


The format of the FLAG is: 


Bits 

Both Zero 

Both One 

1 



Always one 

2 and 3 

Fl=dict. 

ref. 

F1=TMPD operand 

4 and 5 

F2=dict. 

ref. 

F2=TMPD operand 

6-8 

Not used 




The FLAG in the IGNORE item does not 
contain any information. 


Alternatively, ALPHA and/or BETA might 
be base registers, in which cases, the 
dictionary references would be replaced by 
symbolic registers and the FLAG byte would 
be set accordingly: 

MVO ALPHA(14) , 11(6, Rl) 

Bytes 

1111 2 

r T T T T 1 

j MVO | X ' 2 8 ' j 10 j 13 5 | DR( ALPHA) j 
L X X 1 X J 

2 2 

r r 1 

j Rl | H| 

L X J 


The following examples illustrate the 
basic forms of an SS instruction and the 
ways in which they are represented in 
pseudo-code. 


7 . TEXT FORMATS IN ABSOLUTE CODE 


Bytes 


MVC 

1 1 


ALPHA (7 ) , BETA 
11 2 


r T T T T 1 

| MVC | X' 00* | 8 | 6 | DR (ALPHA) | 

l X X X X J 

2 


r 

| DR (BETA) 

L 


1 

I 

J 


Where a standard set of assigned reg- 
isters is to be used for a section of code, 
e.g. in the construction of prologues, or 
during the generation of addressing 
instructions, it is possible to generate 
instructions with registers in absolute 
code, instead of the normal pseudo-code 
two-byte symbolic registers. (See "Text 
Formats in Pseudo-Code" in this Appendix.) 
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Sections of absolute code are preceded 
£>y ABS markers and followed by ABS* mark- 
ers. The operation codes are the same as 
the normal pseudo-code instructions (see 
"Text Code Bytes in Pseudo-Code" in this 
Appendix) , but the instruction formats dif- 
fer, as shown in the following examples: 


RR Instructions 


Other Instructions 
Bytes 


1 11 


OP CODE 

"T" 

1 

-X- 

Rl 

-- — T - 
R2 j 

X- 

B2 

2 


1 


2 


”T” 


T* 


DICT REFCE 

1 

0SM2 

I 

OFFSET 


-X- 


X- 



Bytes 

1 1 

r T 1 

| OP CODE | R1 R2 | 

L X J 


RX Inst r uctions 


Bytes 

1 11 

r t t 1 

j OP CODE j R1 X2 j B2 | 

l X X J 

2 12 

r t t 1 

j DICT REFCE j OSM2 | OFFSET | 

L X X J 


SI Instructions 


Bytes 

1 112 

r T T T 1 

| OP CODE I MASK | Bl | DICT REFCE j 

L X X X J 

1 2 

r T 1 

| 0SM2 | OFFSET | 

L X J 

Note that the 0SM1/0SM2 markers and their 
following offsets are all optional; note 
also that the 0SM2 byte does not have a 
register following it, as in normal pseudo- 
code, but a literal offset. 

After Phases RA and RF all instructions 
in the text will be in absolute code. 


SS Instructions 


Bytes 




1 1 

T 

-T- 

1 

T - 

2 

OP 

CODE | LENGTH 

1 

Bl | 

DICT REFCE 

— 

. _ X 

-X_ 

X. 

_ 

1 

2 


1 

2 

— 

"T ~ 

-T* 


- T — 

B2 

| DICT REFCE 

1 

OS Ml 

| OFFSET 



_x 

-X. 



-X _ 


1 2 


r T 1 

I OS M2 j OFFSET | 

L X J 


RS Instructions 


Shift Instructions 


Bytes 

1 12 

r* T T 1 

j OP CODE j Rl 0 j OFFSET j 

L X X J 


8. S ECOND FILE STATEMENTS, AND THE FORMATS 

OF COMPILER FUNCTIONS AND PSEUDO- VAR I ABLES 


Second File Statemen t s 


Any expression occurring in an attribute 
must be put into a form which is acceptable 
to the translator phase. This means that 
it must look like a source statement. To 
comply with this, all expressions dealing 
with array bounds, string lengths, 
DEFINING, and INITIAL value iteration fac- 
tors are converted into assignments to 
function references. These functions have 
a special meaning. They are not entered in 
the dictionary, and their dictionary ref- 
erences are to a region in the communi- 
cations area. The pseudo- code physical 
phase dealing with each particular function 
generates in-line code instead of a func- 
tion reference. 

All the statements of this type are 
generated in the source text after the end 
of the original source program. They form 
a second program and are referred to later 
as the "second file." 
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The statements generated have the fol- Multiplier Function 
lowing overall format: 


Byte Number 

Description 

Multiplier 

function statements are 

used 



to denote copying of a section of one 

dope 

1 

Code byte SN2 

vector into another. The format is: 


2-3 

Dictionary reference 

Byte Number 

Description 


4 

Options byte 

1 

Assignment statement marker 

5 

Statement type markers 

2 

Code byte X*00* 


6 onwards 

Statement body 

3-4 

MTF code bytes X'0010' 


The dictionary reference is the ref- 




erence of a 

second file dictionary entry. 

5 

Compiler call marker 


This is described in Appendix C. The 




options byte 

is that for the options opera- 

6 

Left parenthesis 


tive in a prologue, i.e. no interruptions 




are accepted. 


7 

Code byte X'00* 




8-9 

Dictionary reference 1 


Array Bounds 







10 

Triple operator code 

byte 




X* 44 ' 


The format 

of the second file statement 




for array bounds is as follows: 

11 

Code byte X'00' 


Byte Number 

Description 

12-13 

Dictionary reference 2 


1 

Assignment statement marker 

14 

Triple operator code 

byte 




X * 44 ' 


2 

Code Byte X'00' 






15 

Code byte X'5E' 


3-4 

ADV code X'0002' 






16 

Code byte X'OO* 


5 

Compiler pseudo-variable 






17-18 

Offset 1 


6 

Left parenthesis 






19 

Triple operator code 

byte 

7 

Code byte X'00' 


X* 44* 


8-9 

Dictionary reference of 

20 

Code byte X'5E* 



array 






21 

Code byte X*00* 


10 

Triple operator code byte 





X' 44 * 

22-23 

Offset 2 


11 

Code byte X'5E' 

24 

Triple operator code 

byte 




X" 44 ' 


12 

Code byte X”00' 






25 

Code byte X'5E* 


13 

Code byte X'00* for lower 





bound, X* 01* for higher 

26 

Code byte X'00' 



bound 






27-28 

Length 


14 

Number of the dimension 





whose bound is referenced 

29 

Right parenthesis 


15 

Right parenthesis 

30 

Statement terminating 

semi- 




colon 


16 

Triple operator code X’46' 






This statement requires the number of 

17. . . 

Expression for bounds 

bytes specified by the length to be 

moved 



from the dope 

vector of the item at 

die- 


Statement terminating semi- 

tionary reference 2, starting at an offset 


colon 

of offset 2, i 

to the dope vector of the 

item 
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at dictionary reference 1, starting at an 
offset of offset 1. 


String Length statement 


The string length statement is used to 
initialize the maximum length slot in a 
string dope vector. The format is: 

Byte Number Description 

1 Assignment statement marker 

2 Code byte X* 00 ' 

3-4 SDV code X* 0004 * 

5 Compiler pseudo-variable 

6 Left parenthesis 

7 Code byte X' 00* 

8-9 Dictionary reference 

10 Right parenthesis 

11 Triple operator Code X'46' 

12... Expression 

Statement termination semi- 
colon 

The dictionary reference is that of the 
item whose dope vector is being initial- 
ized. If the expression is defining the 
length of a string being returned by an 
internal function, then the dictionary ref- 
erence is that of the entry type 2 belong- 
ing to the label. In Figure 6 the ref- 
erence is to B or C depending on whether 
the statement appeared in a PROCEDURE/ENTRY 
statement, or an ENTRY attribute. If the 
item is a data item, an external procedure, 
or a formal parameter entry point, then the 
dictionary reference of that particular 
item appears in the statement. 


INITIAL Value Statements 

INITIAL value statements are used to 
initialize a vector of storage used to 
contain iteration factors. It is implied 
that the value of the expression must be 
converted to type integer. The format is 
as follows: 

B yte Number Description 

1 Assignment statement marker 


2 Code byte X'OO' 1 


3-4 IDV code 


5 Compiler pseudo-variable 


6 Left parenthesis 


7 Code byte X'00* 


8-9 Dictionary reference 


10 Right parenthesis 


11 Triple operator code X'46' 

12... Expression 

Statement terminating semi- 
colon 

The dictionary reference is to the item 
being initialized. The integer is the 
number of assignment statements of this 
type, and for this variable, that have been 
generated before this one. 


Second File Statements for DEFINED 


Second file statements are generated 
when an expression is associated with 
DEFINED, but the expression does not con- 
tain any iSUBs . The format is: 

Byte Number Description 

1 Compiler assignment state- 
ment marker 

2 Code byte X'00* 

3-4 ADF code; 

X'0011* for base only 

X* 0012* for subscripted base 
X* 0013 * for base with iSUB* s 

5 Pseudo-variable marker 

6 Left parenthesis 

7... Base and subscript list 

Right parenthesis 

Statement terminating semi- 
colon 
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9 . PSEU DO-CODE PHASE TEMPORARY RESULT 

DESCRIPTORS (TMPD) 


Temporary Description Stack 


All information on temporary results is 
contained in this stack. Each item in the 
stack consists of 10 bytes. A maximum of 
200 items is allowed. 


Byte 1 Flag 1 describes the addressing 
method contained in bytes 
5 through 10. 2 bits in 

this byte are also used 
during the release of 
temporary results 


Byte 2 Code 2 describes the radix, 
scale, mode, string type 
etc. of the temporary 
result. The format of 
this byte is identical to 
the similar byte in the 
dictionary and the DED 
used by the Library sub- 
routines. routines. 

(See "Data Byte" in 
Appendix C. ) 


2. The number of bytes 
required in the tem- 
porary core stack for 
BASE type 1 


Bytes 9-10 OFS which is a literal offset 
to be inserted in the 
base address. When used 
with BASE type 1 the 
actual temporary offset 
is the sum of the offsets 
and the number of bytes 
required in the stack is 
the sum of the contents 
of OFS and NDX 


Strings are described in the following 
ways: 

If the string is of fixed length less 
than 256 bytes, it is given storage in 
the core stack. This type of string 
has a dictionary entry if it is passed 
to a subroutine. 


If the string is of variable length or 
longer than 256 bytes, the storage is 
bought and sold when required. This 
type of string always has a dictionary 
entry. 


Bytes 3-4 P,Q describes the precision 
and scaling of arithmetic 
type results 


Bytes 5-6 BASE in one of the following 
forms : 


1 . 

"Reg 

by value" 

reg- 


ister 

containing 

the 


result 

- no index 

or 


offset 

is allowed. 


2. 

"Reg 

by value" 

reg- 


ister 

containing 

the 


base 

address of 

the 


result 

stack 



3. Offset from beginning 
of current temporary 
storage for results 
held in the temporary 
storage stack 

4. Dictionary reference 
which specifies the 
base address of the 
result of a subscript 
calculation 

Byte 7-8 NDX in one of the following 

forms: 

1. Symbolic indexing reg- 
ister for BASE type 2 
and 4. 


If the string has no dictionary entry, 
it is described by the usual CODE 
bytes, the temporary core offset in 
BASE, and the byte length in NDX. 


If the string has a dictionary entry, 
it is described by the usual CODE bytes 
and the dictionary reference IN BASE. 
The dictionary entry describes the 
location of the string which may be 
either the temporary area offset and 
size for the first type, or a BUY 
statement for the second type. 

The 'top* of the stack is indicated by 
two pointers: PSTK and LSTK. PSTK points 
to the 'physical' top of the stack, which 
is the last item added. LSTK points to the 
'logical* top of the stack, which is the 
next item to be released. The difference 
is necessary because the temporary storage 
stack may not be released in the same order 
as the description stack. When an item in 
the description stack is released, the 
corresponding temporary storage may not be 
at the top of the stack storage. As the 
storage stack is always released in order, 
the description is flagged and the LSTK is 
reduced by 1 item. When the corresponding 
temporary core is released from the top of 
the storage stack, the description is com- 
pletely removed from the 'physical' stack. 
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r T 

FLAG 
X'OO* 
X* 02* 
X' 04* 
X' 05* 
X* 20* 
X* 41' 
X* 49 * 


T T' 

Whether F7] 
applicable | 


F5 


F6 


Comments 


X' 80 ' 
X'CO* 

X*C1' 

X* C5 * 


Dictionary 

reference 

Dictionary 

ref er ence 

Dictionary 

reference 

Dictionary 

reference 1 

Dictionary 

reference 

Symbolic 

register 

Symbolic 

register 

Register 

Workspace 

offset 

Workspace 

offset 

workspace 

offset 


Dictionary 

reference 2 

Index 

register 

Dictionary 

reference 

Dictionary 

reference 


Dictionary 

reference 

Dictionary 

reference 


Yes 

Wo 

No 

No 

Yes 

Yes 

Yes 

No 

Yes 

Yes 

No 


STRUT2 output — must SELL dictionary ref. 

REPEAT function result. 

SUBSTR function result. 

Arithmetic subscript, or sdv for varying 
string subscript. 

Non-ad justable fixed string subscript, with 
DROP in STRUT2. 

Non-ad justable fixed string subscript, without 
\ DROP in STRU12 . 

Item in register -- F7 cannot exist. 

SDV for adjustable fixed string subscript. 
SUBSTR pseudo- variable result. 


Notes 1. Since F6 cannot be used for both an index register and a dictionary 
reference, bits 2 and 7 of the FLAG byte cannot both be 1. 

2. Many other bit configurations in the FLAG byte are meaningful and could 
be used for future applications. 

i j 

Figure 11. Temporary Descriptions in Pseudo-Code — Use of TMPD Triple Fields F5 and F6 


Temporary Descriptions in Pseudo-Code 


Descriptions are passed between pseudo- 
code phases using two or three TMPD 
triples, with the following formats: 


0 Two TMPD triples are 
used 

1 Three TMPD triples are 
used, and F7 contains 
an offset 

0 Normal setting. String 

utility STRUT2 drops 


r -t 

T T 





symbolic register in F5 

1 TMPD 1 FLAG I F2 1 

F3 j F4 j 




if used for input 

(- — 1 — - 

-X + _ 

J-, «| 



1 

String utility STRUT2 

| TMPD | 

F5 j 

F6 j 




does not drop symbolic 

j- -j- — 

» — •}-*- 

1 




register 

j TMPD j 

F7 | 

l 


5 

0 

Normal setting 

1 _ L 


— ■ J 



1 

Result of an invocation 







Of SUBSTR or REPEAT 

1. FLAG 

describes the use of fields F5, 


6 

0 

No SELL is required 

F6, and F7. 




1 

User of this descrip- 







tion must SELL die- 

Bit 






tionary reference in 

Number 

Value 

Meaninq 




F5. Set by string 







utilities for adjusta- 

0 and 

1 00 

F5 contains a dictiona- 




ble string result 



ry reference 


7 

0 

F6 does not contain a 


11 

F5 contains a temporary 




dictionary reference 



workspace offset 



1 

F6 contains a dictiona- 


01 

F5 contains symbolic 




ry reference 



register with address 







of item 

2. 

CODE contains the data byte 


10 

F5 contains register 


( describing 

type, radix, scale, mode. 



with value of item 


etc 

.) 


2 

0 

F6 does not contain 







index register 

3. 

F3 

and F4 contain: 


1 

F6 contains index reg- 


a. 

Precision 

and scale factor of 



ister 



coded arithmetic type data 
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b. String length for coded non- 
ad justable strings (maximum length 
for varying strings) 

c. Picture dictionary reference for 
data with picture 

4. F5 and F6 are at present used as shown 
in Figure 11. 

5. F7 can be used by adding X'10' to the 
FLAG byte in all cases which give a 
meaningful result (see Figure 11). 


1 0. LIBRARY CALLING SEQUENCES 


Internal library routines are used for 
such things as data type conversion, where 
there is no explicit reference to the 
routine in the PL/I source program. The 
arguments are handed to the routines in 
registers. In pseudo-code form, assigned 
registers are used, and special markers, 
IPRM and IPRM' are used to indicate the 
calling sequence to the register allocator 
phase. Internal library calls appear in 
pseudo- code as: 

IPRM 

L 1, (ARGUMENT 1) 

L 2, (ARGUMENT 2) 


L 15, IHE (ROUTINE NAME) 

BALR14, 15 
IPRM* 

External library routines calls 

correspond to explicit references to func- 
tions or I/O statements in the PL/I source 
program. The arguments to the routines are 
placed in workspace, and register 1 is set 
to point to the first argument. For 
pseudo-code form the calling sequence is 
preceded by an EPRM marker and followed by 
an EPRM* marker. Thus, the library calling 
sequence appears as: 

MVC WSP (N), (ARGUMENT 1) 


EPRM 

LA 1, WSP 

L 15, IHE (ROUTINE NAME) 

BALR 14, 15 
EPRM* 


1 1. DESCRIPTIONS OF TERMS AND 
ABBREVIATIONS USED IN TEXT DURING A 
COMPILATION 


The table in this section gives first, 
the term or abbreviation; second, the phase 
in which the term is used; and third, a 


brief description of the meaning of the 
term or abbreviation. 


The phase in which the term or abbrevia- 
tion is used is given in the second column 
of the table. The key to the code used is: 


R 

After the 

Read-In Phase 

PS 

During the 

Pseudo-Code Phase 

T 

A triple 
code byte 

or translator input 

Term or 

Used In 


Abbreviation Phase 

Description 

A 

R, T 

Character string for- 
mat item 

ABS 

PS 

Indicates the start 
of absolute code 
(Appendix D7) 

ABS' 

PS 

Indicates the end of 
absolute code 

ADR 

PS 

The two byte operand 
contains a register 
for use by final 
assembly for address- 
ing branch destina- 
tions beyond 4096 
bytes from the pro- 
gram base 

ADV 

PS 

Used in 2nd file 
assignment statements 
to indicate that the 
expression has been 
calculated and that 
the following code is 
only concerned with 
assignment to the 
variable, or its dope 
vector, which is the 
subject of the second 
file statement 

ALIGN 

PS 

Indicates that 4 byte 
alignment is required 
in the code at this 
point 

ALLOCATE 

R,T, PS 

Replaces the keyword 
ALLOCATE 

APRM 

PS 

Indicates the library 
calling sequence for 
VDA or controlled 
storage 

ARCO 

T, PS 

Provides space to 
allow insertion of 
argument conversion 
triple 

ARGUMENT 

MARK R 

Marker used by phases 
GK and GP to indicate 
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ARRAY CROSS R,T 
SECTION 

ASSIGN R,T 

ASSIGN BYNAME R 

ATTRIBUTES R, T 


AUTOMATIC R 

B R,T 

BACKWARDS R 

BEGIN' T,PS 

BGPE PS 

BGNP PS 

BGNP ' PS 


BIT ATTRIBUTE R 


BIT CONST R 

BINARY R 

BLBS PS 

BLBS ' PS 

BUFFERED R 


the start of a func- 
tion argument 

Replaces the PL/I 
used to specify an 
array cross section 

Marker which precedes 
an assignment state- 
ment 

Precedes an assign- 
ment statement with 
the BY NAME option 

Marker which precedes 
a dictionary entry 
containing the attri- 
butes which have been 
specified on an OPEN 
or CLOSE statement 

Replaces the keyword 
AUTOMATIC 

Bit string format 
item 

Replaces keyword 

BACKWARDS BEGIN 

Triple which termi- 
nates the BEGIN block 
triples 

Indicates the end of 
the complete prologue 
for a begin block 

Indicates the start 
of code for a BEGIN 
block with no prolo- 
gue 

Indicates the end of 
code for a begin 
block with no prolo- 
gue 

Replaces the keyword 
BIT 

Marker preceding a 
BIT string constant 

Replaces the keyword 
BINARY 

Indicates the start 
of the prologue for a 
BEGIN block 

Indicates the end of 
the prologue for a 
BEGIN block 

Replaces keyword BUF- 
FERED 


BUILTIN R 


BUY T, PS 


BUY T 

ASSIGNMENT 


BUYB T 


BUY CHAMELEON T 


BUYS T, PS 


BY R, T 

BY* T 

BY NAME R 

C R, T 

C* T 

CALL R„ T 

CALL' T 


Replaces the keyword 
BUILTIN 

Code byte or triple 
which indicates that 
a temporary variable 
is required 

Triple which indi- 
cates assignment to a 
temporary variable, 
and which implies 
that the workspace 
for the temporary 
variable must be 
obtained before the 
assignment 

Triple or code byte 
which indicates that 
a scalar temporary is 
required for an 
aggregate argument to 
a generic scalar 
built in function 

Marker which indi- 
cates that workspace 
is required for a 
temporary variable of 
chameleon data type 
i„e. the data type 
is taken from the 
expression assigned 
to the variable 

Code byte or triple 
which indicates that 
a temporary variable 
is required, and that 
initialization code 
exists between this 
triple and the BUY 
triple 

Replaces the keyword 
BY 

Triple which indi- 
cates the end of a BY 
expression 

Replaces the keyword 
BY NAME 

Complex decimal for- 
mat item 

Triple which indi- 
cates the end of a C 
format item 

CALL statement marker 

Triple internal to 
phase IA which marks 
the end of a CALL 
statement 
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CHAR 

R 

Replaces the keyword 

CONDITION 

R 

Replaces the keyword 

ATTRIBUTE 


CHARACTER 



CONDITION 




CONTROLLED 

R 

Replaces the keyword 

CHAR CONSTANT 

R 

Marker preceding a 

character string con- 



CONTROLLED 



stant 

CONTROL 

R,T 

Marker which indi- 




VARIABLE 


cates the control 

variable of a DO loop 

CHECK 

R 

Replaces the keyword 
CHECK 

CONVERSION 

R 

Replaces the keyword 
CONVERSION 

CL 

R, T, PS 

Compiler label marker 

COPY 

R,T 

Replaces the keyword 

CLOSE 

R,T 

Replaces the keyword 



COPY 



CLOSE 

CONTROL 

T 

Triple which indi- 

CN 

R,T, PS 

Compiler statement 

VARIABLE' 


cates the end of a 



number. Can precede 



control variable 



compiler inserted 



expression 



statements 

DATA 

R,T 

Replaces the keyword 

COL 

R,T 

Replaces the keyword 



DATA 



COLUMN 

DATA* 

T 

Triple indicating the 

COMPLEX 

R 

Replaces the keyword 



end of a data direct- 



COMPLEX 



ed I/O list 

COMPILER 

T 

Code byte or triple 

DECIMAL 

R 

Replaces the keyword 

ASSIGN 


indicating assignment 



DECIMAL 

COMPILER 

T 

Code byte or triple 

DECLARE 

R 

Replaces the keyword 

FUNCTION 


used to indicate the 



DECLARE 



start of a compiler 
function call argu- 

DEFINED 

R 

Replaces the keyword 



ment list 



DEFINED 


COMPILER T 

FUNCTION' 


COMPILER T 

FUNCTION CALL 


COMPILER T 

FUNCTION CALL' 


COMPILER T 

FUNCTION COMMA 


COMPILER T 

PSEUDO- VARIABLE* 


COMPILER T 

PSEUDO- VARIABLE 


Triple indicating the 

DEFINED 

T 

Marker which precedes 

END OF A COMPILER 
function argument 
list 

SUBSCRIPT 


the parenthesized 
iSUB subscript list 
of a defined array 

Code byte or triple 
used to indicate the 
start of a compiler 

DELAY 

R»T 

Replaces the keyword 
DELAY 

function call argu- 
ment list 

DELETE 

R» T 

Replaces the keyword 
DELETE 

Triple indicating the 

DICTIONARY 

T 

Marker indicating 

end of a compiler 
function call argu- 
ment list 

Triple used to indi- 

REFERENCE 


that the following 
two bytes contain a 
symbolic dictionary 
reference 

cate the argument of 
compiler function, or 
Pseudo- Variable 

DIRECT 

R 

Replaces the keyword 
DIRECT 

Triple indicating the 
end of a compiler 

DISPLAY 

R 

Replaces the keyword 

display 

pseudo- variable 
argument list 

Code byte or triple 

DO 

R, T 

Replaces the keyword 
DO, in a non- 
iterative DO group 

used to indicate the 
start of a compiler 
pseudo- variable 
argument list 

DO E2UALS 

R, T 

Marker which replaces 
the PL/I'=* in the 
iterative DO 

statement (DO 1= ) 
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DROB 


PS 


DROP T 


DROP PS 


DRPL PS 


E R,T 

EDIT R # T 

EDIT' T 

EIO T 

ELSE R,T 

END R, T 

END BLOCK R,T, 

END DO R„T 

ENDFILE R 

END ITDO R,T 


END LIST MARK R 


Indicates to the reg- 
ister allocation 
phases that a base 
register used for 
addressing a con- 
trolled variable 
should be dropped 

Triple used in optim- 
ization indicating 
the drop of an index 
register 

Indicates that a sym- 
bolic or assigned 
register in the oper- 
and field of the 
instruction is no 
longer required 


END PROG R, # T., PS Marks the end of pro- 

gram 


END PR0GRAM2 T., PS 


ENTRY R 

EPRM PS 


Triple which marks 
the end of the second 
file text i.e. pro- 
logue initialization 
text, which is placed 
after the source pro- 
gram text 


Replaces the keyword 
ENTRY 


Indicates 
of an 

library 
sequence. 
DIO) 


the start 
external 
calling 
(Appendix 


Indicates the end of EPRM' 
the use of a list of 
symbolic registers 

which have appeared 
in an USSL item EQU 

Floating decimal for- 
mat item 

Replaces the keyword 
EDIT 

Triple indicating the 

end of an edit ERROR 

directed I/O list 


PS Indicates the end of 

an external library 
calling sequence 

PS Indicates that the 

two byte operand 
field contains a 
label. The label is 
considered to be 
attached to the fol- 
lowing pseudo-code 
item 

R Replaces the keyword 

ERROR 


Code byte or triple 
which indicates the 
end of an I/O state- 
ment 

Replaces the keyword 
ELSE 

Replaces the END key- 
word at the end of a 
BEGIN or PROCEDURE 
block 

Indicates the end of 

a text block 

Replaces the END key- 
word at the end of a 
non-iterative DO 
group 

Replaces the keyword 
ENDFILE 

Replaces the END key- 
word at the end of an 
iterative DO loop 

Marker used by phases 
GK and GP to indicate 
the end of a function 
argument list 


ERROR T 


ERROR PS 

EVENT R f T 

EXCLUSIVE R 

EXIT R, T 

EXTERNAL R 

F R,T 

F * T 

F COMMA T 


Code byte or triple 
which marks the posi- 
tion of an erroneous 
source statement 

which has been delet- 
ed 

Indicates the pre- 
sence of a source 
program error 

Replaces the keyword 
EVENT 

Replaces keyword 

EXCLUSIVE 

Replaces the keyword 
EXIT 

Replaces the keyword 
EXTERNAL 

Fixed decimal format 
item 

Triple which indi- 
cates the end of an F 
format item 

Triple used to indi- 
cate the arguments of 
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a function or pseudo 
variable 


FILE 

R,T 

Replaces the keyword 
FILE 

FILE' 

T 

Triple indicating the 
end of a file list 

FINISH 

R 

Replaces keyword FIN- 
ISH 

FIXED 

R 

Replaces the keyword 
FIXED 

FIX BINARY 
IMAGINARY 

R 

Marker which precedes 
a fixed binary imag- 
inary constant 

FIX BINARY 
REAL 

R 

Marker which precedes 
a fixed binary real 
constant 

FIX DECIMAL 
IMAGINARY 

R 

Marker which precedes 
a fixed decimal imag- 
inary constant 

FIX DECIMAL 
REAL 

R 

Marker which precedes 
a fixed decimal real 
constant. 

FIXED 

OVERFLOW 

R 

Replaces keywords 
FIXED OVERFLOW 

FLOAT 

R 

Replaces the keyword 
FLOAT 

FLOAT BINARY 
IMAGINARY 

R 

Marker which precedes 
a float binary imag- 
inary constant 

FLOAT BINARY 
REAL 

R 

Marker which precedes 
a float binary real 
constant 

FLOAT DECIMAL 
IMAGINARY 

R 

Marker which precedes 
a float decimal imag- 
inary constant 

FLOAT DECIMAL 
REAL 

R 

Marker which precedes 
a float decimal real 
constant 

FORMAT 

R*T 

Replaces the keyword 
FORMAT 

FORMAT' 

T 

Triple which marks 
the end of a remote 
format statement 

FORMAT LIST 

R,T 

Precedes a format 

list 

FORMAT LIST' 

T 

Triple indicating the 
end of a format list 

FREE 

R f T, PS 

Replaces the keyword 
FREE 


FROM 

R» T 

Replaces the keyword 
FROM 

FUNCTION 

T 

Code byte or triple 
indicating the start 
of a function argu- 
ment list 

FUNCTION 

R 

Marker which precedes 


the parenthesized 
argument list (if 
present) of an entry 
name in a function 
reference or CALL 
statement 


GENERIC 

R 

Replaces the 
GENERIC 

keyword 

GET 

R, T 

Replaces the 
GET 

keyword 

GOOB 

R:, T 

GOTO out of block 

statement marker 

GOTO 

R . # T 

GOTO in block 
ment marker 

state- 

IDENT 

R* T 

Replaces the keyword 
IDENT 

IF 

R, T 

Replaces the 
IF 

keyword 

IF* 

T 

Triple which 
nates an IF 
sion 

termi- 

expres- 

IGNORE 

R,T 

Replaces the 
IGNORE 

keyword 

IGNORE 

PS 

Pseudo- code 

item 


which indicates that 
the number of bytes 
appearing in the 
length count must be 
ignored 

INITIAL R Replaces the keyword 

INITIAL 

INITIAL LABEL R Marker which precedes 

elements of arrays of 
label variables which 
are initialized by 
being attached to 
statements 


INPUT 

R 

Replaces 

INPUT 

keyword 

INTEGER 

R 

Marker which 

precedes 



an internal 

binary 



integer constant 

INTERNAL 

R 

Replaces the 
INTERNAL 

keyword 
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INTO 


R.T Replaces the keyword LOCATE 

INTO 


R. T Replaces the keyword 

LOCATE 


IPRM 

PS 

Indicates the end of 
an internal library 
calling sequence 

ITDO 

R/r T # PS 

Replaces the keyword 
DO in an iterative DO 
loop 

ITDO* 

T, PS 

Triple which termi- 
nates an iterative DO 
expression 

JMP 

T 

Triple indicate the 
presence of pseudo- 
code- The number of 
bytes of pseudo- code 
is specified in the 
first operand 

KEY 

R. T 

Replaces the keyword 
KEY 

KEYED 

R 

Replaces keyword 

KEYED 

KEYFROM 

R,T 

Replaces the keyword 
KEYFROM 

KEYTO 

R,T 

Replaces the keyword 
KEYTO 

LABEL 

R 

Replaces the keyword 
LABEL 

LEFT 

T 

Triple indicating a 
temporary result for 
a pseudo-variable 

LIKE 

R 

Replaces the keyword 
LIKE 

LINE 

R.T 

Replaces the keyword 
LINE 

LINESIZE 

R # T 

Replaces the keyword 
LINESIZE 

LIST 

R.T 

Replaces the keyword 
LIST 

LIST* 

T 

Triple indicating the 
end of a list 
directed I/O list 

LIST MARK 

T 

Marker used by Phases 
GK and GP to indicate 
the start of function 
argument list 

LITERAL 

CONSTANT 

R.T 

Indicates that the 
following two bytes 
contain a fixed 

binary constant 


MAIN 

R 

Replaces keyword MAIN 

MULTIPLE 

ASSIGN 

R.T 

Marker indicating 
multiple assignment 

(Replaces PL/I',') 

NAME 

R 

Replaces the keyword 
NAME in the context 
of ON NAME 

NDX 

T 

Triple indicating 
indexing during 
optimization of DO 
loops 

NEW PAGE 

R 

Replaces the keyword 
NEWPAGE 

NOCHECK 

R 

Replaces the keyword 
NOCHECK 

NO SNAP 

R.T 

Replaces the keyword 
NOSNAP 

NOSNAP ' 

T 

Triple which indi- 

cates the end of a 
NOSNAP list 

NULL 

R, T 

Null statement marker 

OPEN 

R.T 

Replaces the keyword 
OPEN 

OFS 

T 

Triple indicating 
offset used in optim- 
ization of DO loops 

ON 

R. T 

Replaces the keyword 
ON 

OPTIONS 

R 

Replaces the keyword 
OPTIONS 

ON RECORD 

R 

Replaces the keyword 
RECORD in the context 
ON RECORD 

0SM1 

PS 

Indicates that the 
two byte operand 
field contains an 
index register 

0SM2 

PS 

Indicates that the 
two byte operand 
field contains a let- 
eral offset 

OSM3 

PS 

Indicates the pre- 

sence of a literal 
offset and an index 
register 

OUTPUT 

R 

Replaces keyword OUT- 
PUT 
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OVERFLOW R 

P AR, T 

p. T 

PAGE R, T 

PAGESIZE R,T 

PCBS PS 

PFMT PS 

PICTURE R 

PINS PS 

PLBS PS 


PLBS ' PS 


PRECISION! R 


PRECISION2 R 


PRINT R 

PRIORITY R,T 

PSEUDO- R 

VARIABLE 

PSEUDO- T 

VARIABLE 

PSEUDO- T 


Replaces keyword 

OVERFLOW 

Picture format item 

Triple which indi- 
cates the end of a P 
format item 

Picture format item 

Replaces the keyword 
PAGES IZE 

Indicates the end of 
the complete prologue 
for a procedure block 

PICTURE format 

Replaces the keyword 
PICTURE 

Indicates the prolo- 
gue insertion point 

Indicates the start 
of the prologue for a 
procedure block which 
is common to all 
entry points 

Indicates the end of 
the prologue of a 
procedure block which 
is common to all 
entry points 

Indicates a precision 
which has been writ- 
ten in the source 
program as ' (10)' f 
which may be either 
fixed or float 

Indicates a precision 
which has been writ- 
ten in the source 
program as '(5,2)' 
which implies fixed 

Replaces keyword 

PRINT 

Replaces the keyword 
PRIORITY 

Marker which precedes 
the parenthesized 

argument list to a 
pseudo- variable 

Code byte or triple 
indicating the start 
of a pseudo-variable 
argument list 

Triple indicating the 


VARIABLE* 


PSLD 

PS 

PROC 

R, T 

PROC' 

T. PS 

PUT 

R, T 

R 

R, T 

READ 

R, T 

REAL 

R 

RECORD 

R 

RECURSIVE 

R 

REENTRANT 

R 

REPLY 

R,T 

RETURN 

R, T 

REVERT 

R,T 

REWRITE 

R» T 

RPL 

T 

RPL* 

T 

RWA 

PS 


end of a pseudo- 
variable argument 
list 

Indicates a pseudo- 
code instruction for 
use by the final 
assembly listing 

phase 

Replaces the keyword 
PROCEDURE 

Triple which termi- 
nates the procedure 
block triples 

Replaces the keyword 
PUT 

Remote format state- 
ment marker 

Replaces the keyword 
READ 

Replaces the keyword 
REAL 

Replaces the keyword 
RECORD 

Replaces the keyword 
RECURSIVE 

Replaces the keyword 
REENTRANT 

Replaces the keyword 
REPLY 

Replaces statement 
marker 

Replaces the keyword 
REVERT 

Replaces the keyword 
REWRITE 

Code byte or triple 
indicating the start 
of a format list 
replication factor 
expression 

Triple indicating the 
end of a format list 
replication factor 
expression 

Indication of an 
addressing vector for 
use by the register 
allocator when the 
number of symbolic 
registers in use 
exceeds the amount of 
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work space which has 

been allocated 

SECONDARY R Replaces keyword SEC- 

ONDARY 

SECOND LEVEL R A code byte which 

MARKER immediately precedes 

all code bytes 

appearing in the sec- 
ond level table 

SELL T, PS Code byte or triple 

which indicates that 
a temporary variable 
is no longer required 


SET 

R» T 

Replaces 

SET 

the 

keyword 

SETS 

R 

Replaces 

SETS 

the 

keyword 

SEQUENTIAL 

R 

Replaces the 
SEQUENTIAL 

keyword 

SIGNAL 

R, T 

Replaces 

SIGNAL 

the 

keyword 

SIZE 

R 

Replaces 

SIZE 

the 

keyword 

SKIP 

R, T 

Replaces 

SKIP 

the 

keyword 

SL 

R, T, PS 

Statement label mark- 
er. Precedes all 


labelled statements 

SN R, T, PS Statement number 

marker. Precedes all 
unlabelled statements 

SN2 R,T,PS Marker which precedes 

a second file state- 
ment (See Appendix 
D.8) 

SN3 PS Indicates the start 

of a second file 
statement which is 
concerned with ini- 
tializing array, or 
structure, or string 
dope vectors. Simi- 
lar to SN2 (Appendix 
D.8) except that 
there is no associat- 
ed entry 

SNAP' T Triple which indi- 

cates the end of a 
snap list 

STATIC R Replaces the keyword 

STATIC 

STERLING R Marker which precedes 


DECIMAL REAL a sterling decimal 

constant 


STOP R, T Replaces the keyword 

STOP 

STREAM R Replaces keyword 

STREAM 

STRING R, T Replaces the keyword 

STRING 

STRING* T Triple indicating the 

end of a string list 
used with list 
directed I/O 

SOB R Replaces the keyword 

SUB used in iSUB 
DEFINING marker 

preceding a BIT 

SUBSCRIPT R, T Marker which precedes 

the parenthesized 
subscript list of an 
array 

SUBSCRIPT' T Triple indicating the 

end of a subscript 
list 

SUBSCRIPT- R Replaces keyword SUB- 
RANGE SCRIPTRANGE 

SYSTEM R, T Replaces the keyword 

SYSTEM 


SYSTEM* T Triple which indi- 

cates the end of a 
system list 


TASK 

R, T 

Replaces 

TASK 

the 

keyword 

THEN 

R, T 

Replaces 

THEN 

the 

keyword 

TITLE 

R, T 

Replaces 

TITLE 

the 

keyword 

TMPD 

T 

Triple 

indicating a 


temporary expression 
result 


TO R» T Marker replacing TO 

in the iterative DO 
statement 

TO' T Triple which indi- 

cates the end of a TO 
expression 

TRANSMIT R Replaces the keyword 

TRANSMIT 

UNBUFFERED R Replaces the keyword 

UNBUFFERED 
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UNDEFINEDFILE 

UNDERFLOW 

UNLOCK 

UPDATE 

USES 

USNG 

USSL 


R 

Replaces 

the keyword 



saved on branch and 


UNDEFINEDFILE 



branch and link 






instructions 

R 

Replaces 

UNDERFLOW 

keyword 

VARYING 

R 

Replaces the keyword 

R„T 

Replaces 

the keyword 



VARYING 


UNLOCK 


WHILE 

R,T 

Replaces the keyword 

R 

Replaces 

keyword 



WHILE 


UPDATE 


WHILE* 

T 

Triple which indi- 

R 

Replaces 

the keyword 



cates the end of a 


USES 




WHILE expression 

PS 

Indicates 

the pre- 

WRITE 

R,T 

Replaces the keyword 


sence of . 

an assigned 



WRITE 


register 


X 

R, T 

Spacing format item 

PS 

Indicates 

a list of 





symbolic 

registers 

ZERODIVIDE 

R 

Replaces the keyword 


which need not be 



ZERODIVIDE 
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APPENDIX E; STORAGE REQUIREMENTS 


The (F) Compiler requires main storage 
for the following purposes : 

Compiler processing phases 

Print buffers 

Compiler control routines 

Dictionary area 

Text area 

Input/output buffers 


storage available to the compiler. The 
SIZE option, interpreted at invocation 
time., provides the value used to determine 
the block size. A table contained in Phase 
AB is searched, using the SIZE option as an 
argument. When the correct entry is found, 
the block size is extracted. 

The first table shows the relationship 
between the compiler requirements and the 
text and dictionary block sizes. The sec- 
ond table details the storage allocation in 
each environment. 


Input/Output routines (BSAM) 

Compiler Requirements and Dictionary/Text 
The main storage required by each phase Block Relationship 
of the compiler need be contiguous only for 
each control section. 


During the read- in phases a minimum of 
two dictionary blocks and two text blocks 
are available in storage simultaneously. 

During the rest of the compilation four 
dictionary blocks and four text blocks are 
available in storage simultaneously. 

The dictionary and text block size is 
chosen according to the amount of main 


r 


r 


T 


(Environment 


Dictionary/Text 
Block Size 


Compiler 

Requirements 


b 1 f 


A 

1 

IK 

j 44K - 

53K 

B 

1 

2K 

| 53K - 

70K 

C 

1 

4K 

| 70K - 

102K 

D 

1 

8K 

j 102K 

- 168K 

E 

1 

16K 

| Over 

168K 


L X X. 


1 

I 

I 

1 


J 


r* 


T 

J DURING READ- IN PHASE 

L 

_ — T 

1 

AFTER READ- IN 

PHASE 

- - - i 

1 

- 1 

1 

Storage Allocation 

r 

1 

1 1 
j A | 
X— — X 

ENVIRONMENT 

! 1 1 

B I C 1 D 1 

X 1 X 

1 

1 

E j 

1 

1 

A | 

± 

ENVIRONMENT 

] 1 I 

B | C | D | 

XX X- 

1 

E | 

i 

r 

OS Dynamic Storage 

TIOT 

+ T 

1 1 

1 1 

1 228 I 

T 

1 

1 

228 | 

T 

1 

1 

228 | 

T 

1 

1 

228 | 

+ 

! 

1 

228 | 

T 

1 

1 

228 | 

T 

I 

1 

228 | 

T 

1 

1 

228 | 

T 

1 

1 

228 | 

1 

228 ] 


SPIE 

1 32 1 

32 | 

32 | 

32 1 

32] 

32 | 

32 1 

32] 

32 1 

32 | 


LOAD 

| 240 1 

I I 

240J 

I 

240 j 

1 

240 J 

i 

240 j 

I 

240 j 

i 

240 | 

1 

240 j 

t 

240 | 

i 

240 | 


OS Temporary Storage 

End of Volume 

i i 

i i 

i i 

1 976 1 

i 

i 

i 

976 | 

1 

1 

1 

976] 

i 

i 

i 

976 | 

i 

i 

i 

976 | 

1 

i 

i 

976 | 

1 

1 

1 

976 | 

1 

i 

i 

976] 

1 

i 

i 

976 | 

976| 


Data Management 

j 4950 | 

4950 | 

4950 | 

4950| 

4950 | 

4950 | 

4950] 

4950] 

4950| 

4950| 


Compiler Control 

j 11900| 

11900| 

11900| 

119001 

11900] 

11900 | 

11900] 

11900] 

11900] 

11900| 


Phase Area 

(16384 | 

16 38 4 | 

16384| 

16384] 

16384] 

12288 | 

12288 | 

12288 | 

12288| 

12288| 


Text Area 

| 2048 | 

4096| 

8192] 

16384] 

32768| 

4096 | 

8192] 

16384| 

32768| 

65536| 


Dictionary Area 

| 2048 | 

4096] 

8192| 

16384] 

32768| 

4096 | 

8192] 

16384 | 

32768 | 

65536| 


Scratch Storage 

j 4096 j 

4096 | 

4096| 

4096 j 

4096| 

4096 | 

4096] 

4096] 

4096] 

4096 | 


I/O Buffers 

| 1024 | 

1024] 

1024] 

1024 j 

1024 | 

1024 | 

1024 | 

10 24 | 

1024] 

1024 | 

L. 


X _ -X 

X 

X 

X. 

- _ X 

-X 

X 

X- 

X. 

- J 


| TOTALS 

L 


43926 | 48022 | 56214 | 

X X X 


72598|105366|43926 
x x 


| 52118 | 68502 
x x 


101270|166806 
i x j 
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Initially, four text and four dictionary 
blocks are allocated to the compiler (two 
each are allocated when only 44K bytes of 
storage are available to the compiler. 
This is then expanded to four of each at 
the end of the read-in phase). If the text 
and/or dictionary expands to fill these 


blocks, more main storage is allocated as 
blocks. This process continues until the 
spill point is reached (i.e., until all the 
main storage available to the compiler has 
been used). If still more main storage is 
required, the spill file (SYS0T1) is 
opened, and blocks are written out. 
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APPENDIX F: COMMUNICATIONS REGION 


The communications region is an area 
specified by the control routines, and used 
to communicate necessary information 
between the various phases of the compiler. 
The communications region is resident in 
the first dictionary block throughout the 
compilation. 

Entry to the various compiler control 
routines is via a transfer vector. Details 
of the transfer vector and the organization 
of the communications region appear in this 
Appendix. 

Note: The use of the communications region 
during compile-time processing is 
described in Appendix J. 


TRANSFER VECTORS 


Hex. 

Offset Name Description 

8 ZUPL Print a line 


c 

ZURD 

Read a card 

10 

ZUGC 

Get scratch storage 

14 

ZUTXTC 

Get text block 

18 

ZURC 

Release scratch storage 

1C 



20 

Z ABORT 

Dump and go to error 
message routines 

24 

ZLOADW 

Load and return to cal- 
ler 

28 

ZDICAB 

Make dictionary entry. 
Absolute address 

returned 

2C 

ZDICRF 

Make dictionary entry. 
Dictionary reference 
returned 

30 

ZUERR 

Make error message entry 


34 

ZDRFAB 

Gonvert dictionary ref- 
erence to absolute 
address 

38 

ZLOADX 

Load with overlay and 
return to caller 

3C 



40 

RE2EST 

Give a list of phase 
names required or not 
wanted for this compila- 
tion 

44 

RELESE 

Release all named phases 

48 

RLSCTL 

Release all named phases 
and pass to next phase 

4C 



50 

ZTXTRF 

Convert absolute address 
to text reference 

52 

ZTXTAB 

Convert text reference 
to absolute address 

58 

Z CHAIN 

Find next block in chain 

5C 

Z ALTER 

Change text block status 

60 

ZDABRF 

Convert absolute address 
to dictionary reference 

64 

ZNALRF 

Not aligned dictionary 
entry. Reference 

returned 

68 

ZNALDB 

Not aligned dictionary 
entry. Absolute address 
returned 

6C 

ZEND 

Terminate job 

70 

ZULF 

Write on load file 

74 

ZUSP 

Write on punch 

78 

ZUBW 

Write on backing store 

80 

RLSCTLX 

Release all named phases 


and hand control to the 
next phase, after having 
loaded it with overlay 
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COMMUNICATIONS REGION 


These tables give the following information for each location of the communi- 
cations region: name of location; offset (i.e., relative address); use (i.e. , 
stages of compilation during which the location is in use) ; and a description of 
the contents. Certain locations are used in one capacity during part of the 
compilation, and then re-used in a different capacity during another part of the 
compilation. In these cases, one location will have two table entries: details of 
alternative usage appear in the columns headed Name 2 , Use 2 , etc. 


r t T" 

| Name | Offset (Dec.) | 

I- + +. 


Use 


Description 


Register save area 
Register save area 


SAVEO 

1 o 

| ALL 

PHASES 

SAVEl 

| SAVE 0+4 

| ALL 

PHASES 

SAVE 2 

|SAVE0+8 ETC. 

| ALL 

PHASES 

SAVE15 

| SAVE0+60 

j ALL 

PHASES 

ZTV 

| 64 

| ALL 

PHASES 

ZTRAN1 

| 68 

| ALL 

PHASES 

ZTRAN2 

ZTRAN1+4 

j ALL 

PHASES 

ZNXTD 

1 76 

| ALL 

PHASES 

ZERRD 

| 80 

1 all 

PHASES 

ZERRS 

j ZERRD+4 

| ALL 

PHASES 

ZERRW 

| ZERRD+8 

j ALL 

PHASES 

ZERRC 

j ZERRD+12 

| ALL 

PHASES 

ZDNXT 

| ZERRD+16 

| ALL 

PHASES 

ZSNXT 

j ZDNXT+4 

| ALL 

PHASES 

ZWNXT 

j ZDNXT+8 

| ALL 

PHASES 

ZCNXT 

j ZDNXT+12 

| ALL 

PHASES 

Z MY NAM 

| 112 

| ALL 

PHASES 


J 116 

| Not 

used 

ZPROCH 

[ 120 

| ALL 

PHASES 

ZSTAT 

j 124 

| ALL 

PHASES 

PARI 

j 128 

| ALL 

PHASES 

PAR2 

j PARI +4 ETC. 

| ALL 

PHASES 

PAR8 

| PAR1+28 

| ALL 

PHASES 

FSTDIC 

| 160 

| ALL 

PHASES 

ZDIC2 

j FSTDIC+4 ETC 

1 ALL 

PHASES 

ZDIC16 

j FSTDIC+60 

j ALL 

PHASES 

ERCODE 

S 224 

| ALL 

PHASES 

MCSIZE 

| 228 

| ALL 

PHASES 

CCCODE 

j 232 

| ALL 

PHASES 

HDR 

j 236 

j ALL 

PHASES 

TLR 

| 240 

j ALL 

PHASES 

TRT 

j 244 

j ALL 

PHASES 

ARINT 

! 248 

| ALL 

PHASES 

BR2 

j 252 

| ALL 

PHASES 

STARTX 

| 256 

| ALL 

PHASES 

DICTSZ 

j 260 

| ALL 

PHASES 

TXTSZ 

| 264 

| ALL 

PHASES 

RDSIZE 

| 268 

f ALL 

PHASES 

INCOD 

| 272 

| ALL 

PHASES 

ARMASK 

! 273 

| ALL 

PHASES 

LOCK 

| 274 

| ALL 

PHASES 

ZNXTLC 

| 276 

j ALL 

PHASES 

ZSOR 

| 280 

| ALL 

PHASES 

ZMAG 

| 282 

| ALL 

PHASES 

ZCOMM 

| 304 

ALL 

PHASES 


jl x. 


Register save area 
Register save area 
Control phase base 

External to internal translate table 
Internal to external translate table 
Next available dictionary location 

First locations of error chains 


Current ends of error chains 


Name of last phase entered 

Chain of created procedures 
Current statement number 
Parameter word 1 
Parameter word 2 
Parameter word 8 

Address of first dictionary block 

Dictionary block 2 

Dictionary block 16 

Error message codes 

M/CSIZE this run 

Control card requests 

Address of phase directory 

Timer last read 

Total run time 

Arithmetic interrupt 

Second base for control phase 

Start of text 

Dictionary block size 

Space available in text block 

SIZE of read area 

Interrupt code 

Arithmetic error mask 

Dictionary lock slot 

End of current text 

Input record source 

Input record margin 
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T T 

Dec. 

Offset J-- 


Name 


Start 

Read in. 

Read in 

Read in 

Read in 
Read in 

Read in 
Read in 
Read in 
Read in 
Read in 
Read in 
Read in 
Read in 
Read in 

Read in 

Read in 

Read in 

Read in 

Dictionary 


Use 

— T 


End 


Description 


| Use 2 

Name 2 j- T 

| Start j End 

1 1 

1 

--I Description 

1 

_L 

T 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

T 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

-+ — - 
1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

ZSYS0T| Pseudo 

1 1 

1 1 

1 1 

1 1 

1 1 

1 1 

1 1 

1 1 

1 1 

1 1 

1 Pseudo 1 Diet. Ref. 

j code 

1 

1 

1 

| code 

1 

1 

1 

| SYSOUT 

1 

1 

1 

1 

1 

1 

ZINCL |PC. 

1 

1 

1 

j End 

1 

1 

1 

| INCLUDE card 

1 

1 

j pointer 

ZEQTA3| Final 

| Assy. 

j Assigned 

1 

1 

j offset table 

ZLCONS] Strge 

j Alloc 

j Last constant 

ZEOCS | 

1 

| in STATIC. 

1 

1 

End of STATIC 

ZSMREG| Trans- 

I P s eudo 1 C ur r ent s ym- 

j lator 

1 

| code 

1 

|bolic register 
1 

1 

ZFSTEXj Strge 

1 

j End 

1 

| First external 

j alloc 

1 

j item 

ZPRSIzj Final 

| Assy. 

| Size of com- 

1 

i 

| piled program 

zsicszj Final 

| Assy. 

I STATIC 

1 

1 

| INTERNAL size 

ZSTALC] Final 

| Assy. 

j Storage loc- 

1 

1 

1 

1 

1 

i 

1 

1 

1 

1 

1 

1 

j ation counter 

I 

! 

1 

1 

1 

1 

1 

1 

1 

1 

ZCITEM| Pre 

1 

1 

1 

1 

1 

| End 

1 

1 

1 

1 

1 

[Chain of CON- 

| trans. 

1 

| TROLLED items 

ZEQMAX| Pseudo 

j End 

|Max. label 

j code 

1 

1 

1 

1 

1 

| number 

1 

1 


ZCALLC 

ZLABTB 

ZALLCH 

ZDEFFL 

ZAWAFL 

ZINTFL 

ZDIMFL 

ZPICFL 

ZONFL 

ZLIKFL 

ZDECFL 

Z FLAG 2 

Z FLAG 3 

ZNIFCT 

ZIFCT 

ZDOCT 

ZBEGT 

ZPROCT 

ZHASH 

ZFATTB 

ZCDIMC 

Z2FILE 

ZDLFST 

ZDCBLD 

ZMPSTK 

ZUPIC 

ZPROC1 

ZSTACH 

ZVDIMC 

ZCONCH 

ZDEFCH 

ZLIKCH 

ZPOLCH 


ZCOMM+ 0 
+ 4 
+ 12 

1 +16 
I 
I 
I 

>1 byte 

I 

I 

I 

j 

+ 17 
+ 18 
+ 19 

+ 20 

+ 22 

+ 23 

+ 24 

+ 28 

+ 32 

+ 36 

+ 40 
+ 44 
+ 48 
+ 52 
+ 56 
+ 60 
+ 64 
+ 68 
+ 74 

+ 78 
+ 80 
+ 82 
+ 84 


Dictionary 

Dictionary 

Dictionary 

Dictionary 

Dictionary 

Dictionary 

Dictionary 

Dictionary 

Dictionary 

Dictionary 

Dictionary 

Dictionary 

Dictionary 


BCD to 
Diet. Ref. 
Initial 

ALLOCATE + 
Attribute 
Defined 
Attribute 

Diet. Ref. 
Initial 
Piet Proc 
ON 

LIKE 

INITIAL 

Dictionary 

Dictionary 

Translator 

Translator 

Translator 

Translator 

Translator 

Dictionary 


Start of CALL 
chain 

Start of label 
chain 
Start of 
ALLOCATE chain 
Define flag 
ALLOCATE + 
Attribute 
INITIAL flag 
Dimension flag 
PICTURE flag 
ON flag 
LIKE flag 
DECLARE flag 
Flag byte 
Flag byte 
Max. nested 
IF count 
IF count 

Max. nested 
DO count 
Max. nested 
BEGIN 

Max. nested 
PROCEDURE 
Start of hash 
table 


Not used in first half 
Dictionary 


Declare 
pass 2 

Pre- 

translator 

End 

Storage 

allocator 

Dictionary 

Translator 

Picture 

processor 

End 

End 

Translator 


ALLOCATE 

Dictionary 

Dictionary 

Dictionary 


Start of fact- 
ored attribute 

Start constant 
dimension 
Start of 
second file 
Defined 
storage area 
Dictionary 
build area 
Program map 
stack 
Start of 
picture chain 
Start of entry 
type 1 chain 
Start of STAT- 
IC chain (6) 
Start of vari- 
able dimension 
chain 

Start of con- 
stants chain 
Chain of 
defined items 
Chain of LIKE 
items 

Chain of POOL 
items 
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T T - 

j Dec- | 
Name | Offset j~ 


Start 


-■} Description 


ZDCOMl j ZCOMM+86 j Dictionary] Dictionary] Latest 

j j j | diet. ref. 

ZDCOM2 | +90 j Dictionary | Dictionary] Flags for dic- 

j | j |tionary build 

j] ] | interface 

] ] | | (8 bytes) 

x x x x 


. T H 

I Use 2 | | 

Name 2 |* t ] Descriptions | 

| Start j End j | 

+ + + H 


.X X. 
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APPENDIX G: SYSTEM GENERATION 


For full details of the system genera- 
tion process, see IBM System/360 Operating 
System; System Generation , Form C28-6554. 


During the system generation process, a 
control section named IEMAF is assembled 
(see Figure 12) containing a table consist- 
ing of four fixed-point values aligned on 
full-word boundaries, immediately followed 
oy a bit string field that is twelve bytes 
in length. The four fixed-point values are 
related to the compiler options LINECNT, 
SIZE, SORMGIN (start), and SORMGIN (end) 
respectively. The first 44 bits in the 
string are used to specify the default 
status of the options. Bits 47 through 81 
in the string are used to specify if an 
option keyword is to be deleted or not. A 
"1" in the bit string means "yes" and a "0" 
means "no". The remaining 17 bits in the 
string are spare bits not currently in use. 
Figure 13 shows the bit identification 
table associated with the control section. 


r 1 

IEMAF START 


DC F* 60 ' 

DC F' 45056 ' 
DC F' 2 ' 


j DC F'72' | 

| r 

| DC B'j 00000000 00000000' DEFAULT j 

I 1 I 

j DC B' 100000000 00000000' SWITCHES j 

I I r -I 

j DC B* j 00000000 0 0 0 0 0 OjO 0 ' DELETE j 

1 J. J | 

j DC B* j 00000000 00000000* SWITCHES j 

i I r i 

| DC B' j 00000000 0 0 0|0 0 0 0 0 ' SPARE | 

| f J | 

j DC B'|0 0 0 0 0 0 0 0 00000000' SWITCHES j 

| L 

L J 

Figure 12. The IEMAF Control Section 
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— 

T" 


— T 

T - 


Bit 1 

Parameter 

1 Bit 1 

Parameter 

— 

+" 

— 

-+ 

-I~ 

— 

1 

1 

ATR 

1 

43 j 

COMP 

2 

1 

NOATR 

1 

44 j 

NOCOMP 

3 

1 

BCD 

1 

451 

Not used 

4 

1 

EBCDIC 

1 

46 j 

Not used 

5 

1 

CHAR60 

1 

47 j 

DELETE=ATR 

6 

1 

CHAR48 

1 

48 | 

DELETE=NOATR 

7 

1 

DECK 

1 

49 | 

DELETE=BCD 

8 

1 

NODECK 

1 

50 | 

DELETE=EBCDIC 

9 

1 

EXTREF 

1 

51 1 

DELETE=CHAR6 0 

10 

1 

NOEXTREF 

1 

52 | 

DELETE=CHAR48 

11 

1 

FLAGtf 

1 

53 | 

DELETE=DECK 

12 

1 

FLAGE 

1 

54 | 

DELETE=NODECK 

13 

1 

FLAGS 

1 

55 | 

DELETE=EXTREF 

14 

1 

LIST 

1 

56 | 

DELETE=NOEXTREF 

15 

1 

NOLIST 

1 

57 J 

DELETE=FLAGW 

16 

1 

LOAD 

1 

58 j 

DELETE= FLAGE 

17 

1 

NOLOAD 

1 

59 | 

DELETE=FLAGS 

18 

1 

XREF 

1 

60 | 

DELETE=LIST 

19 

1 

NOXREF 

1 

61 1 

DELETE=NOLIST 

20 

1 

SOURCE 

1 

62 | 

delete=load 

21 

1 

NOSOURCE 

1 

63 | 

DELETE=NOLOAD 

22 

1 

SOURCE2 

1 

64 J 

DELETE=XREF 

23 

1 

NOSOURCE2 

1 

65 | 

DELETE=NOXREF 

24 

1 

OPT=0 

1 

66 

DELETE=SOURCE 

25 

1 

OPT=l 

1 

67 j 

DELETE=NOSOURCE 

26 

1 

OPT=2 

1 

681 

DELETE=SOURCE2 

27 

1 

OPT=3 

1 

69J 

DELETE=NOSOURCE2 

28 

1 

OPT=4 

1 

70) 

DELETE=OPT 

29 

1 

OPT=5 

1 

71 1 

DELETE=LINECNT 

30 

1 

OPT=6 

1 

72 | 

delete=linelng 

31 

1 

OPT=7 

1 

73 | 

DELETE=SIZE 

32 

1 

OPT=8 

1 

74 

DELETE=SORMGIN 

33 

1 

OPT=9 

1 

75 | 

DELETE=DUMP 

34 

1 

STMT 

1 

761 

DELETE=STMT 

35 

1 

NOSTMT 

1 

77 | 

DELETE=NOSTMT 

36 

1 

MACRO 

1 

78 | 

DELETE=MACRO 

37 

1 

NOMACRO 

1 

791 

DELETE=NOMACRO 

38 

1 

OPT=M30 

1 

80 J 

DELETE=COMP 

39 

1 

OPT=M40 

1 

81J 

DELETE=NOCOMP 

40 

1 

OPT=M50 

1 

82 | 

(Bits 82 

41 

1 

OPT=M65 

! 

- j 

through 96 

42 

1 

OPT=M75 

1 

96 1 

not used) 



X. 


X 

X. 



Figure 13. Bit Identification Table 
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APPENDIX H: CODE PRODUCED FOR PROLOGUES AND EPILOGUES 


The mechanism of dynamic storage manage- 
ment is described in the publication IBM 
System/360 Operating System PL/I Library 
Program Logic Manual., Form Z28-6591 

Part of the code required to implement 
the storage management is generated as 
prologue and epilogue code by the compiler. 
This Appendix contains annotated examples 
of prologues and epilogues for PROCEDURE, 
BEGIN, and ON blocks. 


PROLOGUES AND EPILOGUES 

Example in PL/I 

A: I: PROCEDURE (X, Y) ; 

DECLARE Y CONTROLLED; 


ON OVERFLOW C=0; 


B: BEGIN; 


END; 


AB; I JK: ENTRY (Y,Z) 


RETURN (EXPRESSION) 


END; 


A 

BC 

15,6(0,15) 

BRANCH ROUND BCD OF ENTRY POINT 


DC 

ALl(l) 

LENGTH OF BCD 


DC 

C'A' 

BCD OF ENTRY POINT 


STM 

14,11,12(13) 

SAVE STANDARD REGISTERS IN SAVE AREA 

* 



CALLER'S DSA 


LA 

10,1+6(0,15) 

SET UP FIRST PROLOGUE BASE 


LA 

8, AP (0,10) 

SET RETURN REGISTER 


BC 

15,12(0,10) 

BRANCH GET DSA 

I 

BC 

15,6(0,15) 

BRANCH ROUND BCD OF ENTRY POINT 


DC 

AL1 (1) 

LENGTH OF BCD 


DC 

C'I' 

BCD OF ENTRY POINT 


STM 

14,11,12(13) 

SAVE STANDARD REGISTERS IN SAVE AREA OF 

* 



CALLER'S DSA 


LA 

10,1+6(0,15) 

SETUP FIRST PROLOGUE BASE 


LA 

8, IP (0,10) 

SET RETURN REGISTER 
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L 

11, STATIC (0,10) 


L 

15, 32(0,11) 


L 

0,SIZDSA(0,10) 


BALR 

14,15 


LR 

14,13 


LA 

0, 7(0,0) 


SR 

15,15 

LOOP 

A 

14,0(0,11) 


ST 

14, ADVEC+4 (15,13) 

LA 


15,4(0,15) 


BCT 

0, LOOP (0,10) 


BCR 

15,8 

STATIC 

DC 

A( STATIC CONTROL 



SECTION) 


DC 

F' SIZE OF DSA’ 

AP 

MVI 

SWITCH (13) ,X* XI * 


BC 

15, COPRAM1 (0,10) 

* 



* 



* 



IP 

MVI 

SWITCH (13),X , X2* 

COP RAMI 

L 

14,0(0,1) 


ST 

14, X (0, 13) 


L 

14,4(0,1) 


LA 

0,10 (0,0) 


SR 

14,0 


LH 

14,0(0,14) 


ST 

14, Y(0, 13) 


L 

14,8(0,1) 


ST 

14, TARGET (0,13) 


L 

10, A. . .A(0,11) 

* 




BAL 

8, COMMON (0,10) 


BC 

15, AE A(0, 10) 

* 



COMMON 

BALR 

o 

si 

o 


LA 

9 , ADDARE A (0,13) 

* 




ST 

9, ADVEC (0,13) 


SET UP STATIC DATA POINTER (ONLY IN 
EXTERNAL PROCEDURES AND ON PROLOGUES) 

LOAD GR15 WITH ENTRY POINT OF I HE S ADA 

GRO= SIZE OF DSA 

CALL IHESADA TO GET A DSA 

POINT GR14 AT NEW DSA 

SET LOOPING VALUE =7 

CLEAR INDEXING REGISTER 

BUMP GR14 BY 4096 

STORE GR14 IN ADDRESSING VECTOR 

BUMP INDEX REGISTER 

BRANCH ON RETURN REGISTER 

ADDRESS OF STATIC INTERNAL CONTROL SECTION 
(ONLY COMPILED FOR EXTERNAL AND ON PROLOGUES) 

INSERT RETURN (EXPRESSION) SWITCH AND 
BRANCH TO COPY OVER PARAMETERS. 

(ONLY COMPILED IF THERE IS A RETURN (EXP) 

AND THE ENTRY LABELS HAVE DIFFERENT DATA 
ATTRIBUTES) . 

INSERT RETURN ( EXP) SWITCH 

PICK UP FIRST ARGUMENT ADDRESS AND 

STORE IN X IN DSA 

PICK UP SECOND ARGUMENT ADDRESS 

POINT GR14 AT PSEUDO- REGISTER OFFSET OF 

ARGUMENT AND PICK IT UP 

STORE OFFSET IN Y IN DSA 

PICK UP ADDRESS OF TARGET FIELD 

AND STORE IN DSA 

LOAD GR10 FROM TRANSFER VECTOR SLOT 
FOR ENTRY POINT A IN STATIC. 

BRANCH AND LINK TO COMMON PROLOGUE 
BRANCH TO THE APPARENT ENTRY POINT 
FOR A 

SET UP COMMON PROLOGUE BASE 

SET GR9 TO POINT TO ADDRESSING AREA 

AT END OF DSA 

AND STORE IN ADDRESSING VECTOR. 


***** 

* 

* 

* 

* 


* 

***** 


THE FOLLOWING CODE APPEARS 
ONLY IN THE CASE OF RECURSIVE PROCEDURES 


L 14,, PR. . . A( 12) 

ST 14,92(0,131 

LA 14, PR. . . A(12 ) 

SR 14,12 

ST 14,88(0,13) 


LOAD GR14 WITH THE CURRENT DISPLAY 
VALUE FOR A 

STORE IN DISPLAY UPDATE IN DSA 

GR14 = OFFSET OF DISPLAY PSEUDO- REGISTER 
STORE IN DISPLAY UPDATE IN DSA 


* INITIALIZE ON SLOTS (IF ANY) 

MVI 0(13), X'8F" IDENTIFY DSA. 


* COPY SKELETON DOPE VECTORS (IF ANY) FROM STATIC INTERNAL 

* CONTROL SECTION TO REAL DOPE VECTORS IN DSA. (THERE IS ALWAYS A 

* SKELETON FOR A REAL DOPE VECTOR), AND RELOCATE THE ADDRESSES WITH THE 

* ADDRESS OF THE DSA FOR THOSE DOPE VECTORS REFERRING TO VARIABLES 

* IN THE DSA. 
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* FOR EACH VDA (VARIABLE DATA AREA) REQUIRED BY THE 

* PROCEDURE THE CODE BETWEEN THE LABELS VDA1 AND VDA2 IS 

* GENERATED 


VDA1 

* 


SR 

SR 


7,7 

0,0 


CLEAR STORAGE ACCUMULATOR AC1 
CLEAR SECONDARY DOPE VECTOR STORAGE 
ACCUMULATOR AC 2 


FOR EACH VARIABLE IN THE VDA, THE FOLLOWING CODE IS 
GENERATED (BETWEEN LABELS VAR1 AND VAR2) . 


VARl EVALUATE EXTENT EXPRESSIONS (DIMENSIONS AND STRING LENGTHS) AND 

* STORE RESULTS IN DOPE VECTOR IN DSA. 

* ALIGN ACCUMULATOR AC1 ON CORRECT BOUNDARY FOR VARIABLE 

* BUMP ACCUMULATOR AC2 BY SIZE OF SECONDARY DOPE VECTOR (IF VARIABLE 

* IS DIMENSIONED AND VARYING) . 

* RELOCATE ADDRESS IN VARIABLES DOPE VECTOR RELATIVE TO START OF 

* VDA. 

VAR2 BUMP ACCUMULATOR AC1 BY SIZE OF STORAGE REQUIRED FOR VARIABLE 

ADD ACl AND AC 2 

LOAD GR15 WITH ENTRY POINT IHESADB 
GET VDA 

BUMP VDA POINTER PAST FLAG AND CHAIN SLOTS 
POINT GR7 AT FIRST SECONDARY DOPE VECTOR. 
FOR EACH VARIABLE IN REGION, RELOCATE 
ADDRESS IN DOPE VECTOR. 

* FOR EACH DIMENSIONED VARYING ITEM IN REGION, INITIALIZE 

VDA2 SECONDARY DOPE VECTORS. 


AR 

0,7 

L 

15,36(0,11) 

BALR 

14,15 

LA 

1,8(0, 1) 

AR 

7,1 

L 

14, DV. . VAR(0, 13) 

AR 

14,1 

ST 

14, DV. . VAR(0, 13) 



LA 

10, PROCBASE 

SET UP PROCEDURE BASE 

CODE (IF ANY) TO SET UP SOME ADDRESSING 
ADVANCE FOR USE IN PROCEDURE 


BCR 

15,8 

RETURN FROM COMMON PROLOGUE. 


CNOP 

0,4 


AB 

BC 

15,8 (0,15) 

BRANCH ROUND BCD OF ENTRY POINT 


DC 

AL1 (2) 



DC 

C' AB' 



STM 

14,11,12(13) 

SAVE REGISTERS IN CALLER'S SAVE AREA 


L 

10,PROBAS(0, 15) 

SET UP FIRST PROLOGUE BASE 


LA 

10,6(0,10) 



BAL 

8,12(0,10) 

BRANCH AND LINK TO GET DSA AND TO SET 

* 

MV I 

SWITCH (13) , X* X3' 

UP ADDRESSING VECTOR. 

SET UP RETURN(EXP) SWITCH IF THERE IS A 

♦ 



RETURN (EXP) AND DATA ATTRIBUTES OF 

* 

BC 

15,COPRAM2 (0,8) 

ENTRY LABELS DIFFERENT. 

BRANCH TO COPY PARAMETERS 

IJK 

BC 

15,8(0,15) 

BRANCH ROUND BCD OF ENTRY POINT 


DC 

AL1 (3) 



DC 

CIJK' 



L 

10,PROBAS(0, 15) 

SET UP FIRST PROLOGUE BASE 


LA 

10,6(0,10) 



BAL 

8,12(0,10) 

BRANCH TO GET DSA AND SET UP 

* 

MV I 

SWITCH (13) , X' X4 ' 

ADDRESSING VECTOR. 

SET RETURN (EXP) SWITCH 


BC 

15, COPRAM2 (0,8) 

BRANCH TO COPY PARAMETERS 

P ROB AS 

DC 

A( I) 


COPRAM2 

L 

14,0(0,1) 

PICK UP FIRST ARGUMENT ADDRESS 


LA 

0,10(0,0) 



SR 

14,0 



LH 

14,0(0,14) 

PICK UP PSEUDO- REGISTER OFFSET OF 


ST 

14, Y (0,13) 

ARGUMENT AND STORE IN DSA. 


L 

14,4(0,1) 

PICK UP ADDRESS OF SECOND ARGUMENT 
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ST 

14.,Z (0,13) 

AND STORE IN Z 




L 

ST 

14,8(0,1) 

14, TARGET (0,13) 

PICK UP ADDRESS OF 
AND STORE IN DSA 

TARGET 

FIELD 

* 

L 

10, A. - - A(0, 11) 

LOAD GR10 WITH ADDRESS OF 
OF PROCEDURE 

FIRST BYTE 


BAL 

8, COMMON (0,10) 

BRANCH AND LINK TO 

COMMON 

PROLOGUE 

* 

BC 

THIS 

15, AE. . . AB (0,10) 

IS THE APPARENT ENTRY 

BRANCH TO APPARENT 
POINT OF A. 

ENTRY ] 

POINT AB 


* 

THE : 

FOLLOWING IS AN ON 

BLOCK PROLOGUE WHICH IS COMPILED 

FOR ALL 

* 

ON BLOCKS EXCEPT IF BLOCK SPECIFIES SYSTEM 



STM 

14,11,12(13) 

SAVE REGISTERS 



LR 

10,15 

SET PROLOGUE BASE 



L 

11, STATIC (0,10) 

SET UP STATIC INTERNAL DATA POINTER 


L 

15,32(0,11) 

LOAD GR15 WITH ADDRESS OF 

IHESADA 


L 

0, SIZDSA(0, 10) 

LOAD GR0 WITH SIZE OF DSA 



BALR 

14,15 

CALL IHESADA TO GET A DSA 



LR 

14,13 




LA 

0, 7(0,0) 




SR 

15,15 



LOOP 

A 

14,0(0,11) 

SET UP ADDRESSING VECTOR IN 


ST 

14, ADVEC+4 (15, 13 ) 

DSA 



LA 

15,4(0,15) 




BCT 

0, LOOP (0,10) 




BC 

15, COMMON (0, 10) 

BRANCH TO INITIALIZE DSA 



DC 

F* SIZE OF DSA' 




DC 

A (STATIC INTERNAL 

, CONTROL SECTION) 


COMMON 

BALR 

10,0 



* 

CODE 

IS GENERATED HERE 

FOLLOWING SAME PATTERN AS FOR 



* A BEGIN PROLOGUE (SEE BELOW) COMMON SECTION- 

LA 10, ONSTART 


ONSTART 


* EPILOGUE FOR AN ON BLOCK 

L 15, IHESAFA( 0, 11 ) LOAD GR15 WITH ENTRY POINT TO EPILOGUE 

BALR 14,15 ROUTINE AND BRANCH AND LINK TO IT 


* 

B 


LOOP 


* 


PROLOGUE FOR A BEGIN BLOCK 


LA 

14, BEND 

SET UP RETURN REGISTER 

BALR 

15,0 

SET UP ENTRY POINT ADDRESS 

CNOP 

0,4 


STM 

14,11,12(13) 

SAVE REGISTERS IN CONTAINING BLOCK'S DSA 

BALR 

9,0 

SET UP PROLOGUE BASE 

L 

15,32(0,11) 

LOAD GR15 WITH ENTRY POINT TO IHESADA 

L 

0,SIZDSA(0, 9) 


BALR 

14,15 

GET A DSA 

LR 

14,13 


LA 

0,7(0, 0) 


SR 

15,15 


A 

14,0(0,11) 


ST 

14, ADVEC+4 (15,13) 

SET UP ADDRESSING VECTOR FOR DSA 

LA 

15,4(0,15) 


BCT 

0, LOOP ( 0, 9) 


BC 

15, COMMON (0, 9) 


DC 

F* SIZE OF DSA' 


LA 

9, ADDAREA( 0, 13 ) 

SET GRG TO POINT TO ADDRESSING AREA 

ST 

9 , ADVEC (0,13) 

AT END OF DSA AND STORE IN ADDRESSING 


VECTOR 


* CODE IS GENERATED HERE THE SAME AS FOR A PROCEDURE PROLOGUE 

* EXCEPT THAT A CODE OF X'GF' IS MOVED TO THE FIRST BYTE OF THE 
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* 

* 


DS A; GR10 IS NOT RESET; AND THE BCR 15 f 8 IS NOT GENERATED. 
EPILOGUE OF A BEGIN BLOCK 

L 15,IHESAFA LOAD GR15 WITH ENTRY POINT OF 

BALR 14,15 EPILOGUING ROUTINE AND CALL IT 

BEND 


* RETURN (EXP) STATEMENT EXAMINES THE LOCATION 'SWITCH' IN THE DSA 

* SET BY THE PROLOGUE TO DETERMINE THE CONVERSION REQUIRED ON 

* THE EXPRESSION. IT THEN ASSIGNS THE CONVERTED EXPRESSION TO 

* THE TARGET FIELD FOR WHICH THE LOCATION 'TARGET', IN THE DSA, 

* POINTS TO EITHER ITS DOPE VECTOR (IN THE CASE OF A STRING) 

* OR THE STORAGE. ROUTINE I HE SAFA IS THEN INVOKED. 

* END STATEMENT (WHICH IS THE SAME AS A RETURN STATEMENT) 

L 15, IHESAFA 

BALR 14,15 
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The messages 

produced 

by 

the 

PL/I (F) 

IEM0056I 

Read 

In 


Compiler are explained 

in 

the 

publication 

IEM0057I 

Read 

In 

CC 

IBM System/360 

Operating 

System, 

PL/I (F) 

IEM0058I 

Read 

In 

CC 

Programmer 

* s Guide, Form 

C28 

-6594. The 

IEM0059I 

Read 

In 

CP 

following 

table associates 

a message number 

IEM0060I 

Read 

In 

CP 

with the 

particular 

phase and 

module in 

IEM0061I 

Read 

In 

CP 

which the 

corresponding 

message 

is 

generat- 

IEM0063I 

Read 

In 

CO 

ed. 







IEM0064I 

Read 

In 

cc 








IEM0066I 

Read 

In 

CG 

Message 







IEM0067I 

Read 

In 

CL 

Number 

Logical Phase 



Module 

IEM0068I 

Read 

In 









IEM0069I 

Read 

In 

CG 

IEM0002I 

Read 

In 




CA 

IEM0070I 

Read 

In 

CG 

IEM0003I 

Read 

In 




CA, CP 

IEM0071I 

Read 

In 

CG 

IEM0004I 

Read 

In 




CA 

IEM0072I 

Read 

In 

CG 

IEM0005I 

Read 

In 




CA, CL 

IEM0074I 

Read 

In 

CG 

IEM0006I 

Read 

In 




CA 

IEM0075I 

Read 

In 

CG 

IEM0007I 

Read 

In 




CA 

IEM0076I 

Read 

In 

CG 

IEM0008I 

Read 

In 




CA 

IEM0077I 

Read 

In 

CG 

IEM0009I 

Read 

In 




CA 

IEM0078I 

Read 

In 

CG 

IEM0010I 

Read 

In 




CA 

IEM0080I 

Read 

In 

CG 

IEM0011I 

Read 

In 




CA 

IEM0081I 

Read 

In 

CG 

IEM0012I 

Read 

In 




CA 

IEM0082I 

Read 

In 

C3 

IEM0013I 

Read 

In 




CA 

IEM0083I 

Read 

In 

CG 

IEM0014I 

Read 

In 




CA 

IEM0084I 

Read 

In 

C3 

IEM0015I 

Read 

In 




CA 

IEM0085I 

Read 

In 

CI 

IEM0016I 

Read 

In 




CA 

IEM0090I 

Read 

In 

Cl 

IEM0017I 

Read 

In 




CA 

IEM0094I 

Read 

In 

CI 

IEM0018I 

Read 

In 




CA 

IEM0096I 

Read 

In 

CG , CI 

IEM0019I 

Read 

In 




CA 

IEM0097I 

Read 

In 

CI 

IEM0020I 

Read 

In 




CA 

IEM0098I 

Read 

In 


IEM0021I 

Read 

In 




CA 

IEM0099I 

Read 

In 

CI 

IEM0022I 

Read 

In 




CA 

IEM0100I 

Read 

In 

CI 

IEM0023I 

Read 

In 




CA 

IEM0101I 

Read 

In 

CM 

IEM0024I 

Read 

In 




CA 

IEM0102I 

Read 

In 

CI 

IEM0025I 

Read 

In 




CA 

IEM0103I 

Read 

In 

CI 

IEM0026I 

Read 

In 




CA 

IEM0104I 

Read 

In 

cc 

IEM0027I 

Read 

In 





IEM0105I 

Read 

In 

CC, CG 

IEM0028 I 

Read 

In 




CG 

IEM0106I 

Read 

In 

CI, cv 

IEM0029I 

Read 

In 





IEM0107I 

Read 

In 

CI 

IEM0031I 

Read 

In 




CA, CL, CT 

IEM0108I 

Read 

In 

CI 

IEM0032I 

Read 

In 




CC 

IEM0109I 

Read 

In 

CG, CI 

IEM0033I 

Read 

In 




cc 

IEM0110I 

Read 

In 

CI 

IEM0035I 

Read 

In 




CC 

IEM0111I 

Read 

In 

CI 

IEM0037I 

Read 

In 




cc 

IEM0112I 

Read 

In 

CI 

IEM0038I 

Read 

In 




cc 

IEM0113I 

Read 

In 

CG, CM 

IEM0039I 

Read 

In 




cc 

IEM0114I 

Read 

In 

CI 

IEM0040I 

Read 

In 




cc 

IEM0115I 

Read 

In 

CL 

IEM0041I 

Read 

In 





IEM0116I 

Read 

In 

CI 

IEM0043I 

Read 

In 




cc 

IEM0128I 

Read 

In 

CO 

IEM0044I 

Read 

In 




cc 

IEM0129I 

Read 

In 

CL 

IEM0045I 

Read 

In 




cc 

IEM0130I 

Read 

In 

CL 

IEM0046I 

Read 

In 




cc 

IEM0131I 

Read 

In 

CO 

IEM0047I 

Read 

In 





IEM0132I 

Read 

In 

CO 

IEM0048I 

Read 

In 




CG 

IEM0133I 

Read 

In 

CO 

IEM0049I 

Read 

In 





IEM0134I 

Read 

In 

CP 

IEM0050I 

Read 

In 




CL, CP 

IEM0138I 

Read 

In 


IEM0051I 

Read 

In 




CL, CP 

IEM0139I 

Read 

In 

CP 

IEM0052I 

Read 

In 




CO 

IEM0142I 

Read 

In 

CO 

IEM0053I 

Read 

In 




CO 

IEM0143I 

Read 

In 

CO 

IEM0054I 

Read 

In 




CO 

I E MO 1441 

Read 

In 


IEM0055I 

Read 

In 




CP 

IEM0145I 

Read 

In 

CO 
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IEM0146I 

Read in 

CO 

IEM0233I 

Read In 

cv 

IEM0149I 

Read In 

CL f CM 

IEM0234I 

Read In 


IEM0150I 

Read In 

CL 

IEM0235I 

Read In 

CS 

IEM0151I 

Read In 

CO 

IEM0236I 

Read In 

CS 

IEM0152I 

Read In 

CO 

IEM0237I 

Read In 

CS 

IEM0158I 

Read In 

CO 

IEM0240I 

Read In 

cv 

IEM0159I 

Read In 

CO 

IEM0241I 

Read In 

cv 

IEM0160I 

Read In 


IEM0242I 

Read In 

cv 

IEM0162I 

Read In 


IEM0243I 

Read In 

cv 

IEM0163I 

Read In 

CT 

IEM0244I 

Read In 

cv 

IEM0164I 

Read in 

CS f CT 

IEM0245I 

Read In 

cv 

IEM0165I 

Read In 


IEM0254I 

Read In 

CC 

IEM0166I 

Read In 

CL 

IEM0255I 

Read In 

CG 

IEM0167I 

Read In 


IEM0512I 

Dictionary 

EH 

IEM0168I 

Read In 


IEM0513I 

Dictionary 

EG 

IEM0169I 

Read In 


IEM0514I 

Dictionary 

EG 

IEM0170I 

Read In 


IEM0515I 

Dictionary 

EG 

IEM0171I 

Read In 


IEM0516I 

Dictionary 

EG 

IEM0172I 

Read In 

CL 

IEM0517I 

Dictionary 

EG 

IEM0177I 

Read In 


IEM0518I 

Dictionary 

EG 

IEM0178I 

Read in 


IEM0519I 

Dictionary 

EG 

IEM0179I 

Read In 


IEM0520I 

Dictionary 

EG 

IEM0180I 

Read In 

CT 

IEM0521I 

Dictionary 

EG 

IEM0181I 

Read In 

CL 

IEM0522I 

Dictionary 

EG 

IEM0182I 

Read In 

CL, CS, 

IEM0523I 

Dictionary 

EG 



CT , C V 

IEM0524I 

Dictionary 

EH 

IEM0183I 

Read In 


IEM0525I 

Dictionary 

El 

IEM0184I 

Read In 


IEM0527I 

Dictionary 

EJ 

IEM0185I 

Read In 

CT 

IEM0528I 

Dictionary 

EH, El , E J 

IEM0187I 

Read In 

CT 

IEM0529I 

Dictionary 

El 

IEM0188I 

Read in 


IEM0530I 

Dictionary 

El 

IEM0189I 

Read In 


IEM0531I 

Dictionary 

El 

IEM0190I 

Read In 


IEM0532I 

Dictionary 

El 

IEM0191I 

Read In 

CT 

IEM0533I 

Dictionary 

El 

IEM0193I 

Read In 

CT 

IEM0534I 

Dictionary 

El 

IEM0194I 

Read In 

CT 

IEM0535I 

Dictionary 

El 

IEM0195I 

Read In 

CT 

IEM0536I 

Dictionary 

El 

IEM0196I 

Read In 


IEM0537I 

Dictionary 

El 

IEM0197I 

Read In 


IEM0538I 

Dictionary 

EJ 

IEM0198I 

Read In 

CT 

IEM0539I 

Dictionary 

EJ 

IEM0201I 

Read in 


IEM0540I 

Dictionary 

EJ 

IEM0202I 

Read In 

CL 

IEM0541I 

Dictionary 

EJ 

IEM0205I 

Read In 


IEM0542I 

Dictionary 

EJ 

IEM0206I 

Read In 


IEM0543I 

Dictionary 

EL,EK,EM 

IEM0207I 

Read In 

CG 

IEM0544I 

Dictionary 

EL, EK, EM 

IEM0208I 

Read In 

CG 

IEM0545I 

Dictionary 

EL,EK, EM 

IEM0209I 

Read In 

CC 

IEM0546I 

Dictionary 

EL, EK, EM 

IEM0210I 

Read In 


IEM0547I 

Dictionary 

EL, EK, EM 

IEM0211I 

Read In 

CL 

IEM0548I 

Dictionary 

EL, EK, EM 

IEM0212I 

Read In 

CP 

IEM0549I 

Dictionary 

EL,, EK, EM 

IEM0213I 

Read in 

CP 

IEM0550I 

Dictionary 

EL, EK,EM 

IEM0214I 

Read In 

CP 

IEM0551I 

Dictionary 

EK, EL, EM 

IEM0216I 

Read In 

CP 

IEM0552I 

Dictionary 

EL, EK, EM 

IEM0217I 

Read In 

CP 

IEM0553I 

Dictionary 

EL, EK, EM 

IEM0218I 

Read In 

CL 

IEM0554I 

Dictionary 

EL, EK,EM 

IEM0220I 

Read In 

CT 

IEM0555I 

Dictionary 

EL, EK, EM 

IEM0221I 

Read In 

CT 

IEM0556I 

Dictionary 

EL,EK,EM 

IEM0222I 

Read In 


IEM0557I 

Dictionary 

EL, EK, EM 

IEM0223I 

Read In 

CT 

IEM0558I 

Dictionary 

EL, EK, EM 

IEM0224I 

Read In 

CT 

IEM0559I 

Dictionary 

EL, EK,EM 

IEM0225I 

Read In 

CT 

IEM0560I 

Dictionary 

EL, EK, EM 

IEM0226I 

Read In 

CT 

IEM0561I 

Dictionary 

EL,EK,EM 

IEM0227I 

Read In 

CT 

IEM0562I 

Dictionary 

EK,EL, EM 

IEM0228I 

Read In 

CT 

IEM0563I 

Dictionary 

EK,EL, EM 

IEM0229I 

Read In 

CT 

IEM0564I 

Dictionary 

EK, EL, EM 

IEM0230I 

Read In 

CS , CT 

IEM0565I 

Dictionary 

EK, EL, EM 

IEM0231I 

Read In 

CT 

IEM0566I 

Dictionary 

ek,el,em 

IEM0232I 

Read In 

CT 

IEM0567I 

Dictionary 

EP 
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IEM0568I 

Dictionary 

EP 

IEM0699I 

Dictionary 

FI 

IEM0569I 

Dictionary 

EP 

IEM0700I 

Dictionary 

FI 

IEM0570I 

Dictionary 

EP 

IEM0701I 

Dictionary 

FI 

IEM0571I 

Dictionary 

EK 

IEM0702I 

Dictionary 

FI 

IEM0572I 

Dictionary 

EL 

IEM0703I 

Dictionary 

FI 

ILM0573I 

Dictionary 

EL 

IEM0704I 

Dictionary 

FI 

IEM0589I 

Dictionary 

EW 

IEM0708I 

Dictionary 

FK 

IEM0590I 

Dictionary 

EW 

IEM0709I 

Dictionary 

FK 

IEM0591I 

Dictionary 

EW 

IEM0710I 

Dictionary 

FK 

IEM0592I 

Dictionary 

EW 

IEM0711I 

Dictionary 

FK 

IEM0593I 

Dictionary 

EW 

IEM0712I 

Dictionary 

FK 

IEM0594I 

Dictionary 

EW 

IEM0715I 

Dictionary 

EJ 

IEM0595I 

Dictionary 

EW 

IEM0718I 

Dictionary 

FO 

IEM0596I 

Dictionary 

EW 

IEM0719I 

Dictionary 

FO 

IEM0597I 

Dictionary 

EW 

IEM0720I 

Dictionary 

FO 

IEM0598I 

Dictionary 

EW 

IEM0721I 

Dictionary 

FO 

IEM0607I 

Dictionary 

FV,FW 

IEM0722I 

Dictionary 

FO 

IEM0608I 

Dictionary 

FV,FW 

IEM0723I 

Dictionary 

FO 

IEM0609I 

Dictionary 

FV, FW 

IEM0724I 

Dictionary 

FO 

IEM0610I 

Dictionary 

FV f FW 

IEM0725I 

Dictionary 

FO 

IEM0611I 

Dictionary 

FV, FW 

IEM0726I 

Dictionary 

FO 

IEM0623I 

Dictionary 

FV, FW 

IEM0727I 

Dictionary 

FO 

IEM0624I 

Dictionary 

FV, FW 

IEM0728I 

Dictionary 

FO 

IEM0625I 

Dictionary 

FV, FW 

IEM0729I 

Dictionary 

FO 

IEM0626I 

Dictionary 

FV, FW 

IEM0730I 

Dictionary 

FQ 

IEM0627I 

Dictionary 

FV, FW 

IEM0731I 

Dictionary 

FQ 

IEM0628I 

Dictionary 

FV, FW 

IEM0732I 

Dictionary 

FQ 

IEM0629I 

Dictionary 

FV, FW 

IEM0733I 

Dictionary 

FQ 

IEM0630I 

Dictionary 

FV, FW 

IEM0734I 

Dictionary 

FQ 

IEM0631I 

Dictionary 

FV, FW 

IEM0735I 

Dictionary 

FQ 

IEM0632I 

Dictionary 

FV, FW 

IEM0736I 

Dictionary 

FQ 

IEM0633I 

Dictionary 

EY 

IEM0737I 

Dictionary 

FQ 

IEM0634I 

Dictionary 

EY 

IEM0738I 

Dictionary 

FQ 

IEM0636I 

Dictionary 

EY 

IEM0739I 

Dictionary 

FQ 

IEM0637I 

Dictionary 

EY 

IEM0740I 

Dictionary 

FQ 

IEM0638I 

Dictionary 

EY 

IEM0741I 

Dictionary 

FQ 

IEM0640I 

Dictionary 

EY 

IEM0742I 

Dictionary 

FQ 

IEM0641I 

Dictionary 

EY 

IEM0743I 

Dictionary 

FQ 

IEM0642I 

Dictionary 

EY 

IEM0744I 

Dictionary 

FQ 

IEM0643I 

Dictionary 

EY 

IEM0745I 

Dictionary 

FQ 

IEM0644I 

Dictionary 

EY 

IEM0746I 

Dictionary 

FQ 

IEM0652I 

Dictionary 

FE 

IEM0747I 

Dictionary 

FQ 

I EMO 6531 

Dictionary 

FE 

IEM0748I 

Dictionary 

FQ 

IEM0654I 

Dictionary 

FE 

IEM0749I 

Dictionary 

FQ 

IEM0655I 

Dictionary 

FE 

IEM0750I 

Dictionary 

FQ 

IEM0656I 

Dictionary 

FE 

IEM0751I 

Dictionary 

FQ 

IEM0657I 

Dictionary 

FE 

IEM0752I 

Dictionary 

FQ 

IEM0658I 

Dictionary 

FE 

IEM0754I 

Dictionary 

FQ 

IEM0673I 

Dictionary 

FE 

IEM0755I 

Dictionary 

FQ 

IEM0674I 

Dictionary 

FF 

IEM0756I 

Dictionary 

FQ 

IEM0675I 

Dictionary 

FF 

IEM0758I 

Dictionary 

FQ 

IEM0676I 

Dictionary 

FF 

IEM0759I 

Dictionary 

FQ 

IEM0677I 

Dictionary 

FE 

IEM0760I 

Dictionary 

FQ 

IEM0683I 

Dictionary 

FI 

IEM0761I 

Dictionary 

FQ 

IEM0684I 

Dictionary 

FI 

IEM0762I 

Dictionary 

FQ 

IEM0685I 

Dictionary 

FI 

IEM0769I 

Pretranslator 

GA 

IEM0686I 

Dictionary 

FI 

IEM0770I 

pretranslator 


IEM0687I 

Dictionary 

FI 

IEM0771I 

Pretranslator 

GA 

IEM0688I 

Dictionary 

FI 

IEM0785I 

Pretranslator 

GK 

IEM0689I 

Dictionary 

FI 

IEM0786I 

Pretranslator 

GK 

IEM0690I 

Dictionary 

FI 

IEM0787I 

Pretranslator 

GK 

IEM0691I 

Dictionary 

FI 

IEM0788I 

Pretranslator 

GK 

IEM0692I 

Dictionary 

FI 

IEM0789I 

Pretranslator 

GK 

IEM0693I 

Dictionary 

FI 

IEM0790I 

Pretranslator 

GK 

IEM0694I 

Dictionary 

FI 

IEM0791I 

Pretranslator 

GK 

IEM0695I 

Dictionary 

FI 

IEM0792I 

Pretranslator 

GP*GQ t GR 

IEM0696I 

Dictionary 

FI 

IEM0793I 

Pretranslator 

GP , GQ, GR 

IEM0697I 

Dictionary 

FI 

IEM0794I 

Pretranslator 

GP. # GQy GR 
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IEM0795I 

Pretranslator 

GP,GQ,GR 

IEM1029I 

Translator 

IA 

IEM0796I 

Pretranslator 

GP,GQ,GR 

I EMI 0401 

Translator 

IM 

IEM0797I 

Pretranslator 

GP f GQ, GR 

IEM1051I 

Translator 

IM 

IEM0798I 

Pretranslator 

GP,GQ,GR 

IEM1056I 

Translator 

IM 

IEM0799I 

Pretranslator 

GP f GQ # GR 

IEM1057I 

Translator 

IM 

IEM0800I 

Pretranslator 

GP,GQ,GR 

IEM1058I 

Translator 

IM 

IEM0801I 

Pretranslator 

GP,GQ,GR 

IEM1059I 

Translator 

IM 

IEM0802I 

Pretranslator 

GP , GQ f GR 

IEM1060I 

Translator 

IM 

IEM0803I 

Pretranslator 

gp,gq,gr 

IEM1061I 

Translator 

IM 

IEM0804I 

Pretranslator 

GP,GQ,GR 

IEM1062I 

Translator 

IM 

IEM0805I 

Pretranslator 

GP, GQ, GR 

IEM1063I 

Translator 

IM 

IEM0806I 

Pretranslator 

GP, GQ, GR 

IEM1064I 

Translator 

IM 

IEM0807I 

Pretranslator 

GP, GQ, GR 

IEM1065I 

Translator 

IM 

IEM0816I 

Pretranslator 

GU,GV 

IEM1066I 

Translator 

IM 

IEM0817I 

Pretranslator 

GU,GV 

IEM1067I 

Translator 

IM 

IEM0818I 

Pretranslator 

GU, GV 

IEM1068I 

Translator 

IM 

IEM0819I 

Pretranslator 

GU, GV 

IEM1071I 

Translator 

IM 

IEM0820I 

Pretranslator 

GU, GV 

IEM1072I 

Translator 

IM 

IEM0821I 

Pretranslator 

GU, GV 

IEM1073I 

Translator 

IM 

IEM0823I 

Pretr ans lat or 

GU, GV 

IEM1074I 

Translator 

IM 

IEM0824I 

Pretranslator 

GU 

IEM1088I 

Aggregates 

JK 

IEM0825I 

Pretrans lat or 

GU , GV 

IEM1089I 

Aggregates 

JK 

IEM0832I 

Pr etrans la tor 

HF, HG 

IEM1090I 

Aggregates 

JK 

IEM0833I 

Pretranslator 

HF, HG 

IEM1104I 

Aggregates 

JP 

IEM0834I 

Pretranslator 

HF, HG 

IEM1105I 

Aggregates 

JP 

IEM0835I 

Pretranslator 

HF, HG 

IEM1106I 

Aggregates 

JP 

IEM0836I 

Pretranslator 

HF, HG 

IEM1107I 

Aggregates 

JP 

IEM0837I 

Pretranslator 

HF, HG 

IEM1108I 

Aggregates 

JP 

IEM0848I 

Pretranslator 

HF, HG 

IEM1110I 

Aggregates 

JP 

IEM0849I 

Pretranslator 

HF, HG 

IEM1111I 

Aggregates 

JP 

IEM0850I 

Pretranslator 

HF, HG 

IEM1112I 

Aggregates 

JP 

IEM0851I 

Pretranslator 

HF, HG 

IEM1113I 

Aggregates 

JP 

IEM0852I 

Pretranslator 

HF, HG 

IEM1114I 

Aggregates 

JP 

IEM0853I 

Pretrans lator 

HF, HG 

IEM1115I 

Aggregates 

JP 

IEM0864I 

Pretranslator 

HK, HL 

IEM1120I 

Aggregates 

JP 

IEM0865I 

Pretranslator 

HK, HL 

IEM1121I 

Aggregates 

JP 

IEM0866I 

Pretranslator 

HK, HL 

IEM1122I 

Aggregates 

JP 

IEM0867I 

Pretranslator 

HK, HL 

IEM1123I 

Pseudo-code 

LD 

IEM0868I 

Pretranslator 

HK, HL 

IEM1124I 

Ps eudo- code 

LB 

IEM0869I 

Pretranslator 

HK, HL 

IEM1200I 

Pseudo-code 

LA 

IEM0870I 

Pretranslator 

HK, HL 

IEM1569I 

Pseudo- code 

LG-ON 

IEM0871I 

Pretrans lator 

HK, HL 

IEM1570I 

Pseudo- code 

LG 

IEM0872I 

Pretranslator 

HK, HL 

IEM1571I 

Pseudo-code 

LG 

IEM0873I 

Pretranslator 

HK, HL 

IEM1572I 

Pseudo- code 

LG 

IEM0874I 

Pretranslator 

HK, HL 

IEM1574I 

Pseudo-code 

LG 

IEM0875I 

Pretranslator 

HK, HL 

IEM1575I 

Pseudo- code 

LG 

IEM0876I 

Pretranslator 

HK, HL 

IEM1600I 

Pseudo-code 

LS , LT, LU 

IEM0877I 

Pretranslator 

HK, HL 

IEM1601I 

Pseudo- code 

LS 

IEM0878I 

Pretranslator 

HK, HL 

IEM1602I 

Pseudo-code 

LS, LT, LU 

IEM0879I 

Pretranslator 

HK, HL 

IEM1603I 

Pseudo- code 

LS, LT, LU 

IEM0880I 

Pretrans lator 

HK, HL 

IEM1604I 

Pseudo- code 

LS, LT, LU 

IEM0881I 

Pretranslator 

HK, HL 

IEM1605I 

Pseudo-code 

LS, LT, LU 

IEM0882I 

Pretranslator 

HK 

IEM1606I 

Pseudo- code 

LS„LT, LU 

IEM0896I 

Pretranslator 

HP, HQ 

IEM1607I 

Pseudo-code 

LS, LT, LU 

IEM0897I 

Pretranslator 

HP, HQ 

IEM1608I 

Pseudo- code 

LS, LT, LU 

IEM0898I 

Pretranslator 

HP, HQ 

IEM1609I 

Pseudo-code 

LS,LT, LU 

IEM0899I 

Pretranslator 

HP, HQ 

IEM1610I 

Pseudo- code 

Ltf 

IEM0900I 

Pretranslator 

HP, HQ 

IEM1611I 

Pseudo- code 

LW 

IEM0901I 

Pretrans lator 

HP, HQ 

IEM1612I 

Pseudo- code 

LN 

IEM0902I 

Pretranslator 

HP, HQ 

IEM1613I 

Pseudo-code 

LS, LT, LU 

IEM0903I 

Pretranslator 

HP, HQ 

IEM1614I 

Pseudo- code 

Ltf 

IEM0906I 

Pretrans lator 

HP, HQ 

IEM1617I 

Pseudo-code 

MB 

IEM0907I 

Pretrans lator 

HP, HQ 

IEM1618I 

Pseudo-code 

MB 

IEM1024I 

Translator 

IA 

IEM1619I 

Pseudo- code 

MB 

IEM1025I 

Translator 

IA 

IEM1620I 

Pseudo-code 

MB 

IEM1026I 

Translator 

IA 

IEM1621I 

Pseudo- code 

MB 

IEM1027I 

Translator 

IA 

IEM1622I 

Pseudo-code 

MB 

IEM1028I 

Translator 

IA 

IEM1623I 

Pseudo- code 

MB 
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IEM1624I 

Pseudo-code 

MB 

IEM1838I 

Pseudo-code 

NM 

IEM1625I 

Pseudo- code 

MB 

IEM1839I 

Pseudo-code 

NM 

IEM1630I 

Pseudo-code 

MG, MH 

IEM1840I 

Pseudo-code 

NM 

IEM1631I 

Pseudo-code 

MI, MJ 

IEM1841I 

Pseudo- code 

NM 

IEM1632I 

Pseudo-code 

MI, MJ 

IEM1843I 

Pseudo-code 

NM 

IEM1640I 

Pseudo-code 

MM, MN 

IEM1844I 

Ps eudo- code 

NM 

IEM1641I 

Pseudo- code 

MM, MN 

IEM1845I 

Pseudo-code 

NM 

IEM1642I 

Pseudo-code 

MM, MN 

IEM1846I 

Pseudo- code 

NM 

IEM1643I 

pseudo-code 

MM, MN 

IEM1847I 

Pseudo-code 

NM 

IEM1644I 

Pseudo-code 

MM, MN 

IEM1848I 

Pseudo- code 

NM 

IEM1645I 

Pseudo-code 

MM, MN 

IEM1860I 

Pseudo-code 

NU 

IEM1648I 

Pseudo-code 

MM, MN 

IEM1861I 

Ps eudo-code 

NU 

IEM1649I 

Pseudo-code 

MM, MN 

IEM1862I 

Pseudo- code 

NU 

IEM1650I 

Pseudo-code 

MM, MN 

IEM1870I 

Pseudo-code 

NU 

IEM1651I 

Pseudo-code 

MM, MN 

IEM1871I 

Pseudo- code 

NU 

IEM1652I 

Pseudo- code 

MM, MN 

IEM1872I 

Pseudo-code 

NU 

IEM1653I 

Pseudo-code 

MM, MN 

IEM1873I 

Pseudo- code 

NU 

IEM1654I 

Pseudo-code 

MM, MN 

IEM1874I 

Pseudo-code 

NU 

IEM1655I 

Pseudo-code 

MN 

IEM1875I 

Pseudo- code 

NV 

IEM1670I 

Pseudo- code 

MP 

IEM2304I 

Storage Allocation 

PD 

IEM1671I 

Pseudo-code 

MP 

IEM2305I 

Storage Allocation 

PD 

IEM1680I 

Pseudo- code 

MS 

IEM2352I 

Storage Allocation 

PD 

IEM1687I 

Pseudo-code 

MS 

IEM2700I 

Register Allocation 

RF , RG, RH 

IEM1688I 

Pseudo-code 

MS 

IEM27 Oil 

Register Allocation 

RF, RG,RH 

IEM1689I 

Pseudo-code 

MS 

IEM2702I 

Register Allocation 

RF, RG, RH 

IEM1691I 

Pseudo-code 

MS 

IEM2703I 

Register Allocation 

RF, RG, RH 

IEM1692I 

Pseudo- code 

MS 

IEM2704I 

Register Allocation 

RF, RG, RH 

IEM1693I 

Pseudo-code 

MS 

IEM2705I 

Register Allocation 

RF, RG, RH 

IEM1750I 

pseudo-code 

MS 

IEM2706I 

Register Allocation 

RF , RG, RH 

IEM1751I 

Pseudo-code 

MS 

IEM2707I 

Register Allocation 

RF, RG, RH 

IEM1793I 

Pseudo- code 

OE 

IEM2708I 

Register Allocation 

RF , RG, RH 

IEM1794I 

Pseudo-code 

OE 

IEM2709I 

Register Allocation 

RF, RG, RH 

IEM1795I 

Pseudo- code 

OE 

IEM2710I 

Register Allocation 

RF, RG, RH 

IEM1800I 

Pseudo-code 

OS 

IEM2711I 

Register Allocation 

RF,RG, RH 

IEM1801I 

Pseudo- code 

OS 

IEM2712I 

Register Allocation 

RF,RG,RH 

IEM1802I 

Pseudo-code 

OS 

IEM2817I 

Final Assembly 

TA 

IEM1803I 

Pseudo- code 

OS 

IEM2818I 

Final Assembly 

TA 

IEM1804I 

Pseudo-code 

OS 

IEM2819I 

Final Assembly 

TA 

IEM1805I 

pseudo-code 

OS 

IEM2820I 

Final Assembly 

TA 

IEM1806I 

Pseudo-* code 

OS 

IEM2821I 

Final Assembly 

TA 

IEM1807I 

Pseudo-code 

OS 

IEM2822I 

Final Assembly 

TA 

IEM1808I 

Pseudo- code 

OS 

IEM2823I 

Final Assembly 

TA 

IEM1809I 

Pseudo- code 

OS 

IEM2824I 

Final Assembly 

TA 

IEM1810I 

Pseudo- code 

OS 

IEM2825I 

Final Assembly 

TA 

IEM1811I 

Pseudo-code 

OS 

IEM2826I 

Final Assembly 

TA 

IEM1812I 

Pseudo-code 

os 

IEM2833I 

Final Assembly 

TF 

IEM1813I 

Pseudo- code 

os 

IEM2834I 

Final Assembly 

TF 

IEM1814I 

Pseudo-code 

OS 

IEM2835I 

Final Assembly 

TF 

IEM1815I 

Pseudo-code 

OS 

IEM2836I 

Final Assembly 

TF 

IEM1816I 

Pseudo-code 

NJ 

IEM2837I 

Final Assembly 

TF 

IEM1817I 

Pseudo- code 

NJ 

IEM2849I 

Final Assembly 

TJ 

IEM1818I 

Pseudo-code 

NJ 

IEM2852I 

Final Assembly 

TJ 

IEM1819I 

Pseudo- code 

NJ 

IEM2853I 

Final Assembly 

TJ 

IEM1820I 

Pseudo-code 

NJ 

IEM2854I 

Final Assembly 

TJ 

IEM1821I 

Pseudo-code 

NJ 

IEM2855I 

Final Assembly 

TJ 

IEM1822I 

Pseudo-code 

NJ 

IEM2865I 

Final Assembly 

TO 

IEM1823I 

Pseudo- code 

NJ 

IEM2866I 

Final Assembly 

TO 

IEM1824I 

Pseudo-code 

NM 

IEM2867I 

Final Assembly 

TO 

IEM1825I 

pseudo- code 

NG 

IEM2868I 

Final Assembly 

TO 

IEM1826I 

Pseudo- code 

NG 

IEM2881I 

Final Assembly 

TT 

IEM1827I 

Pseudo-code 

NG 

IEM2882I 

Final Assembly 

TT 

IEM1828I 

Pseudo- code 

NG 

IEM2883I 

Final Assembly 

TT 

IEM1832I 

Pseudo- code 

NM 

IEM2884I 

Final Assembly 

TT 

IEM1833I 

Pseudo- code 

NM 

IEM2885I 

Final Assembly 

TT 

IEM1834I 

Pseudo-code 

NM 

IEM2886I 

Final Assembly 

TT 

IEM1835I 

Pseudo-code 

NM 

IEM2887I 

Final Assembly 

TT 

IEM1836X 

Pseudo- code 

NM 

IEM2888I 

Final Assembly 

TT 

IEM1837I 

Pseudo-code 

NM 

IEM2897I 

Final Assembly 

UA 
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IEM2898I Final Assembly UA IEM4142I Compile-time Processor BC 

IEM2899I Final Assembly UC IEM4143I Compile-time Processor BC 

IEM2900I Final Assembly UC IEM4148I Compile-time Processor BC 

IEM2913I Final Assembly OF IEM4150I Compile-time Processor BC 

IEM3584I 48 Character BX IEM4151I Compile-time Processor BC 

Preprocessor IEM4152I Compile-time Processor BC 

IEM3840I Compiler Control AA IEM4153I Compile-time Processor BC 

IEM3841I Compiler Control AA IEM4154I Compile-time Processor BC 


IEM3842I Compiler Control AA 
IEM3843I Compiler Control AA 
IEM3844I Compiler Control AA 
IEM3845I Compiler Control AA 
IEM3846I Compiler Control AA 
IEM3847I Compiler Control AA 
IEM3848I Compiler Control AA 
IEM3849I Compiler Control AA 
IEM3850I Compiler Control AA 
IEM3851I Compiler Control AA 
IEM3852I Compiler Control AA 
IEM3853I Compiler Control AA 
IEM3854I Compiler Control AA 
IEM3855I Compiler Control AA 
IEM3856I Compiler Control AA 
IEM3857I Compiler Control AA 
IEM3858I Compiler Control AA 
IEM3859I Compiler Control AA 
IEM3860I Compiler Control AA 
IEM3861I Compiler Control AA 
IEM3862I Compiler Control AA 
IEM3863I Compiler Control AA 
IEM3864I Compiler Control AA 
IEM3865I Compiler Control AA 
IEM3872I Compiler Control AA 
IEM3873I Compiler Control AA 
IEM3874I Compiler Control AA 
IEM3875I Compiler Control AA 
IEM3876I Compiler Control AA 
IEM3877I Compiler Control AA 
IEM3878I Compiler Control AA 
IEM3880I Compiler Control AA 
IEM3888I Compiler Control AA 
IEM3889I Compiler Control AA 
IEM3890I Compiler Control AA 
IEM3891I Compiler Control AA 
IEM3892I Compiler Control AA 
IEM3893I Compiler Control AA 
IEM3894I Compiler Control AA 
IEM3895I Compiler Control AA 
IEM3896I Compiler Control AA 
IEM3897I Compiler Control AA 
IEM3898I Compiler Control AA 
IEM3904I Compiler Control AA 
IEM3905I Compiler Control AA 
IEM3906I Compiler Control AA 
IEM3907I Compiler Control AA 
IEM3908I Compiler Control AA 


IEM4106I Compile-time Processor AS 

IEM4109I Compile-time processor AS 

IEM4112I Compile-time Processor AS 

IEM4115I Compile-time Processor AS 

IEM4118I Compile-time Processor AS 

IEM4121I Compile-time Processor AS,BC 

IEM4124I Compile-time Processor BC, BG 

IEM4130I Compile-time Processor BG 

IEM4133I Compile-time Processor BC 

IEM4134I Compile-time Processor BC 

IEM4136I Compile-time Processor BC 

IEM4139I Compile-time processor BC 


IEM4157I Compile-time Processor BC 

IEM4160I Compile-time Processor BC 

IEM4163I Compile-time Processor BC 

IEM4166I Compile-time Processor BC 

IEM4169I Compile-time Processor BC 

IEM4172I Compile-time Processor BC 

IEM4175I Compile-time Processor BC 

IEM4176I Compile-time Processor BC 

IEM4178I Compile-time Processor BC 

IEM4184I Compile-time Processor BC 

IEM4187I Compile-time Processor BC 

IEM4188I Compile-time Processor BC 

IEM4190I Compile-time Processor BC 

IEM4193I Compile-time Processor BC 

IEM4196I Compile-time Processor BC 

IEM4199I Compile-time Processor BC 

IEM4202I Compile-time Processor BC 

IEM4205I Compile-time Processor BC 

IEM4208I Compile-time Processor BC 

IEM4211I Compile- time Processor BC 

IEM4212I Compile-time Processor BC 

IEM4214I Compile- time Processor BC 

IEM4217I Compile-time Processor BC 

IEM4220I Compile-time Processor BC 

IEM4223I Compile-time Processor BC 

IEM4226I Compile-time Processor BC 

IEM4229I Compile-time Processor BC 

IEM4232I Compile-time Processor BC 

IEM4235I Compile-time Processor BC 

IEM4238I Compile-time Processor BC 

IEM4241I Compile-time Processor BC 

IEM4244I Compile-time Processor BC 

IEM4247I Compile-time Processor BC 

IEM4248I Compile-time Processor BC 

IEM4250I Compile-time Processor BC 

IEM4253I Compile-time Processor BC 

IEM4254I Compile-time Processor BC 

IEM4256I Compile-time Processor BC 

IEM4259I Compile-time Processor BC 

IEM4262I Compile-time Processor BC 

IEM4265I Compile-time Processor BC 

IEM4271I Compile-time Processor BC 

IEM4277I Compile-time Processor BC 

IEM4280I Compile-time Processor BC 

IEM4283I Compile-time Processor BC 

IEM4286I Compile-time Processor BC 

IEM4289I Compile-time Processor BC 

IEM4292I Compile-time Processor BC 

IEM4295I Compile-time Processor BC 

IEM4296I Compile-time Processor BC 

IEM4298I Compile-time Processor BC 

IEM4299I Compile-time Processor BC 

IEM4301I Compile-time Processor BC 

BG IEM4304I Compile-time Processor BC 
IEM4307I Compile-time Processor BC 

IEM4310I Compile- time Processor BC 

IEM4313I Compile-time Processor BC 

IEM4319I Compile-time Processor BC 

IEM4322I Compile-time Processor BC 

IEM4325I Compile-time Processor BC 
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IEM4328I Compile-time Processor BC 
IEM4331I Compile-time Processor BC 
IEM43321 Compile-time Processor BC 
IEM4334I Compile-time Processor BC 
IEM4337I Compile-time Processor BC 
IEM4340I Compile-time Processor BC 
IEM4343I Compile-time Processor BC 
IEM4346I Compile-time Processor BC 
IEM4349I Compile-time Processor BC 
IEM4352I Compile-time Processor BC 
IEM4355I Compile-time Processor BC 
IEM4358I Compile-time Processor BC 
IEM4361I Compile-time Processor BC 
IEM4364I Compile-time Processor BC 
IEM4367I Compile-time Processor BC 
IEM4370I Compile-time Processor BC 
IEM4373I Compile-time Processor BC 
IEM4376I Compile-time Processor BC 
IEM4379I Compile-time Processor BC 
IEM4382I Compile-time Processor BC 
IEM4283I Compile-time Processor BC 
IEM4391I Compile-time Processor BC 
IEM4394I Compile-time Processor BC 
IEM4397I Compile-time Processor BC 
IEM4400I Compile-time Processor BC 
IEM4403I Compile-time Processor BC 
IEM4406I Compile-time Processor BC 
IEM4407I Compile-time Processor BC 
IEM4409I Compile-time Processor BC 
IEM4412I Compile-time Processor BC 
IEM4415I Compile-time Processor BC 
IEM4421I Compile-time Processor BC 
IEM4433I Compile-time Processor BG 
IEM4436I Compile-time Processor BG 
IEM4439I Compile-time Processor BG 


IEM4448I Compile-time Processor BG 

IEM4451I Compile-time Processor BG 

IEM4452I Compile-time Processor BG 

IEM4454I Compile-time Processor BG 

IEM4457I Compile-time Processor BG 

IEM4460I Compile-time Processor BG 

IEM4463I Compile-time Processor BG 

IEM4469I Compile-time Processor BG 

IEM4472I Compile-time Processor BG 

IEM4473I Compile-time Processor BG 

IEM4475I Compile-time Processor BG 

IEM4478I Compile-time Processor BG 

IEM4481I Compile-time Processor BG 

IEM4484I Compile-time Processor BG 

IEM4499I Compile-time Processor BG 

IEM4502I Compile-time Processor BG 

IEM4504I Compile-time Processor BG 

IEM4505I Compile-time Processor BG 

IEM4506I Compile-time Processor BG 

IEM4508I Compile-time Processor BG 

IEM4511I Compile-time Processor BC 

IEM4514I Compile-time Processor BG 

IEM4517I Compile-time Processor BG 

IEM4520I Compile- time Processor BG 

IEM4523I Compile-time Processor BG 

IEM4526I Compile-time Processor AS 

IEM4529I Compile-time Processor BC,BG 

IEM4532I Compile- time Processor AS 

IEM4535I Compile-time Processor AS 

IEM4538I Compile-time Processor BC 

IEM4547I Compile-time Processor AV 

IEM4550I Compile-time Processor BG 

IEM4553I Compile-time Processor BG 

IEM4559I Compile-time Processor BG 

IEM4562I Compile-time Processor BG 
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APPENDIX J: COMPILE-TIME PROCESSOR 


This appendix describes, for the 
Compile-time Processor Logical Phase, the 
internal formats of text and tables, com- 
munication region use. Operating System 
interfaces and compiler control interfaces. 


declared. Each procedure is 
assigned a unique number. The 
identifiers in the non-procedural 
text are given the procedure number 
1. The built-in function SUBSTR is 
given the procedure number 0. 


1. INTERNAL FORMATS OF TEXT 


The internal format of text used by the 
compile-time processor is EBCDIC. As 
source input is read into storage, non- 
macro text is moved directly into text 
blocks after translation to internal 
format. Encoded compile-time statements 
and line numbers are also placed in text 
blocks. 


F ormat of a Dictionar y Entry 


The compile-time processor uses a set of 
chained dictionary entries. Hashing tech- 
niques are used to add an item- to the 
dictionary or to search for an entry. A 
compile-time processor dictionary item is a 
variable-length item with the following 
skeletal format: 

The fields defined in this skeleton have 
the following meaning and usage: 

LENGTH: The length of the EBCDIC name. If 
the item has no name (e.g., a 
constant) this field is zero. 

PROC NO. : The number assigned to the proce- 
dure in which the identifier was 


HASH- CHAIN-POINTER: The dictionary address 
of the next item on this hash 
chain. This address is zero if no 
item follows. 

TYPE: A byte which gives the attributes of 
the entry. The bits (if on) have 
been assigned the following mean- 
ings : 

BIT MEANING 

1 fixed 

2 character 

3 bit 

4 entry 

5 label 

6 INCLUDE identifier 

7 iterative DO 

8 constant 

VALUE/ VALUE- POINTER: If the item is fixed, 
this contains the value proper 
stored as a five-digit packed deci- 
mal number. Otherwise it contains 
a pointer to the value stored in 
IVBs. The definition of value for 
the various -kinds of entries is 
given below. For a fixed macro 
variable, this contains the value. 
For a character variable, it con- 
tains a pointer to IVBs containing 
the value. For a procedure, it 
points to the text-block location 
of the code. For a label, it 


Byte 1 Byte 2 Byte 3 Byte 4 

r r t 1 

Word 1 j LENGTH | PROC NO. | HASH-CHAIN- POINTER | 

j. 1 J. 

Word 2 | TYPE | VALUE/VALUE-POINTER | 

j. ± T ^ 

Word 3 j FLAGS | COUNT j 

¥ i H 

Word 4 j POINTERS/PARM-TYPES j 

I- 1 

Word 5 j EBCDIC NAME > j 

l j 

I I 

h ^ 

Word n | > EBCDIC NAME j 

L J 
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points to the text-block location 
of the label. If references to the 
label are found before the label is 
discovered, the value pointer tem- 
porarily points to a chain of IVBs 
with a description of every GOTO 
transferring to this label. This 
information is processed and dis- 
carded when the label is found. 
For an INCLUDE identifier, it 
points to the beginning of the 
included text. 

FLAGS: This set of bits provides additional 
information about the use of the 
item. They are used as follows: 

BIT MEANING 

1 special entry bit 

2 DECLARE encountered (Phase 

BC) 

3 procedure body encountered 

(Phase BC) 

4 parameter 

5 used to indicate a procedure f 
called by Phase II scan. 

6 DECLARE encountered (Phase 

BG) 

7 unused 

8 ACTIVATE bit 

9 "in-use" bit 

10 "indirect reference" bit 

11 "undefined" bit for multiple 
declarations 

12 left-hand side (LHS bit) 

This field occupies a half-word. 

COUNT: For a procedure entry, this field 
contains a count of the number of 
parameters for the procedure. For 
INCLUDE identifier it is zero ini- 
tially, and subsequently contains 
the initial line number assigned' to 
the included text. 

POINTERS/PARAM-TYPES: For a procedure, the 
field contains an encoding of the 
type information for each formal 
parameter. Two bits are reserved 
for each parameter. One indicates 
fixed; the other indicates charac- 
ter. If neither bit is set, this 
indicates that the entry declara- 
tion did not specify attributes for 
the parameters. 

For a label, word 4 contains two 
pointers to dictionary items. One 
points to the dictionary entry for 
the immediately embracing iterative 
DO. The second half-word contains 
a pointer to the dictionary entry 
for the immediately embracing 
INCLUDE. This provides a method of 
checking the legality of GOTOs. 
For an INCLUDE identifier, only the 


pointer to the immediately embrac- 
ing INCLUDE is kept. 

During Phase I, word 4 is used for 
labels and simple variables to hold 
two pointers. These form a bi- 
directional chain of all labels and 
variables having the same procedure 
number which have been used but not 
defined. This information is used 
only is Phase I and can therefore 
be overlaid. 

EBCDIC NAME: A variable length field, 
containing the EBCDIC name of the 
item. If the item has no name, 
this field is not included. 


Format of an Identifier Value Block (IVB) 


To hold character and bit string values, 
some text blocks are organised into sub- 
blocks of 32 bytes each. Of these 32 
bytes, 27 are used to hold values or parts 
of values. The first byte is used to hold 
a copy of the last character in the 
preceding IVB. This copy is made to facil- 
itate backup. The last four bytes consist 
of a condition code of one byte followed by 
a 3-byte chain pointer. A set of these 
sub-blocks, chained together, is used to 
hold a value. The condition byte is zero 
for all except the last sub-block in a 
value. In this last condition code byte 
the first bit is set to 1 to indicate 
"end-of-value. " The remaining bits are a 
count of the significant bytes in the 
sub-block. There is a maximum of 27 signi- 
ficant bytes in an IVB. 

The chain address is used to point to 
the next sub-block in a value. The meaning 
of the chain address in the last sub-block 
in a chain depends on how the chain is 
being used. 

These small chained sub-blocks are 
referred to as "identifier value blocks," 
or IVBs . 

Text blocks are allocated to hold IVBs 
as the need arises. Those IVBs not cur- 
rently in use are chained together into an 
availability chain and are re-used when 
needed. 

An example of a character string value 
held in IVBs is shown- The character 
string, which starts with AB and ends with 
CD, is 28 characters long. Two IVBs are 
thus required to hold the value. The 
string AB...C is put into the first IVB, 
while the last character, D, is put into 
another IVB. The condition code byte of 
the first IVB is zero. The second condi- 
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r t t i r t t 1 

| ?AB ... C j 0. j >| CD///// | 10000001 j ? j 

L JL X_J L X X J 

< 28 > 1 3 < 28 > < 1 > <-3-> 


tion code byte is 10000001. The first "1” 
indicates end-of-value, while 0000001 is a 
count of the significant characters in the 
IVB. 

Besides holding character- string values, 
IVBs are used in many places by the 
compile-time processor to hold information 
which must be chained from a dictionary 
entry and which is of indefinite length. 
These uses are noted elsewhere. 


Instruction Codes for the Compile-time 
Processor 


Compile-time statements are handled in 
two parts. During Phase BC, each statement 
is recognized and syntax checked. An 
encoded form of the statement is then 
placed into the current text block. During 
Phase BG these encoded statements are exe- 
cuted by an interpreter. 

All expressions are encoded in postfix 
Polish. A stack is used during Phase II to 
hold all operands. Conversions are done in 
Phase BG. 

Thus the expression (A+B)J|C, for exam- 
ple, is turned into 

A B + Cj | 

To be more explicit, it is turned into the 
instructions 

PUSH A; 

PUSH B 

ADD; 

PUSH C; 

CONCAT 

The PUSH operator pushes its operand 
onto the phase II stack. This stack con- 
sists of 150 full words in scratch storage. 
The first byte of each call is a status 
byte; the last three bytes hold the value 
if the item is FIXED, a pointer if the item 
is CHARACTER or BIT, or an indirect ref- 
erence to a dictionary entry if the indi- 
rect bit is on. 

The bits of the status byte have the 
following meaning if set to one: 


BIT MEANING 

1 FIXED 

2 CHARACTER 

3 BIT 

4 Indirect reference (i.e., points 

to a dictionary entry) 

5 Character string value does not 

"belong" to the stack and should 

not be erased when stack is 
popped. (Shared with Phase BG 
scan. ) 


Bits 6-8 are unused by the interpreter. 
They are reserved for Phase BG scan. 


All instructions generated by the Phase 
BC code generators begin with an operation 
' byte. Depending on the operation, it may 
be followed by zero or more bytes of 
information which are intrinsically part of 
the instruction. Each instruction may have 
either or both of the characteristics STACK 
and FIXED. The definition of these charac- 
teristics follows: 


1. STACK. These instruction consist only 
of the one-byte operator. They take 
their operands, if any, from the Phase 
II stack. These operators correspond 
in general to the PL/I arithmetic and 
string operators. Depending on wheth- 
er they are unary or binary, they use 
the top one or two items on the stack. 
Before these operands are used, they 
are converted, if necessary, in place 
to the required type. After the items 
are used they are popped from the 
stack. The result of the operation is 
pushed onto the stack. 


The conversion, the popping, and the 
pushing are all implied for a stack 
operator. 

2. FIXED LENGTH- These operations are 
followed by a fixed number of bytes — 
usually two. These bytes, which usu- 
ally refer to a dictionary entry, 
serve as the operand(s) of the 
instruction. 

The table below shows the operations 
that are to encode macro instructions. The 
operand description indicates only the gen- 
eral operand type for a variable-length 
item. The count byte is omitted. 
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r T T 

| MNEMONIC | TYPE | 


OPERAND DESCRIPTION 


FUNCTION 


h + + + i 


j ADD 

| STACK 

1 

| BINARY; 

i 

OPERANDS, RESULT FIXED 

| A+B 

i 



| SUB 

1 

j STACK 

I 

1 

j BINARY; 

l 

OPERANDS, RESULT FIXED 

1 

( A-B 

i 



| MUL 

1 

j STACK 

■ 

1 

| BINARY; 

i 

OPERANDS, RESULT FIXED 

l 

( A*B 

1 



| DIV 

1 

j STACK 

I 

1 

j BINARY; 

i 

OPERANDS, RESULT FIXED 

1 

j A/B 

i 



| UNMIN 

1 

j STACK 
■ 

1 

| UNARY; OPERAND, RESULT FIXED 

i 

1 

j-B 

i 



| UNPLS 

1 

| STACK 

i 

1 

| UNARY; OPERAND, RESULT FIXED 

i 

1 

|+B 

i 



| ASSIGNi 

1 

| STACK 
j FIXED 

i 

1 

| UNARY; B 

1 

i 

CONVERTED TO TYPE OF A 

1 

(A=B (assignment) 

1 

1 



| NOT 

1 

j STACK 

1 

1 

| UNARY; OPERAND, RESULT BIT 

i 

1 

hB 



| AND 

1 

| STACK 

i 

| BINARY; 

OPERANDS, RESULT BIT 

1 

( A£B 
j 



| OR 

1 

j STACK 

1 

| BINARY; 

OPERANDS, RESULT BIT 

1 A | B 
| 



j CONCAT 

1 

j STACK 

1 

| BINARY; 

OPERANDS, RESULT CHAR 

1 A | | B 

1 



1 EQU 2 

1 

j STACK 

1 

| BINARY; 

OPERANDS, RESULT VARY 

1 

|A=B (equality) 



1 GT 2 

1 

j STACK 

1 

| BINARY; 

OPERANDS, RESULT VARY 

1 

| A>B 

1 



| LT 2 

1 

j STACK 

i 

| BINARY; 

OPERANDS, RESULT VARY 

1 

( A<B 

i 



| INC 

1 

j FIXED 

I 

j Two- byte 

dictionary reference 

1 

(INCLUDE A 

1 



| ABORT 

1 

j FIXED 

1 

j One-byte 

code 

1 

(ABORT processing 

1 



| TRA 

1 

j FIXED 

l 

J Two- byte 

dictionary reference 

1 

(Transfer to label 

i 



|TRAC 

1 

| FIXED 

t 

j Two- byte 

dictionary reference 

1 

(Transfer to label 



| TRAF 3 

1 

j STACK 
j FIXED 

i 

j Two- byte 

dictionary reference 

i 

(Transfer to label 
j if top of stack false. 

i 


| INV 5 

1 

j STACK 
j FIXED 

i 

i 

| Two-byte dictionary reference and 
|a one-byte argument count 

1 

| Invokes the procedure 

1 

i 


1 TRAI“ 

1 

j FIXED 

1 

i 

| two two- 

l 

byte dictionary references 

1 

(Transfer out of INCLUDE 

i 


| PUSH 

1 

j FIXED 

i 

1 

| Two- byte 

dictionary reference 

|Push A onto stack 

i 



J PUSHI 

1 

j FIXED 

1 

i 

1 

| Two- byte 

i 

i 

dictionary reference 

1 

|Push address of A 

jonto stack 

1 



| UPDT 

1 

j FIXED 

i 

j Three-byte line count 

1 

|Put line count into 

i 

LINCNT 


| entm 

1 

j FIXED 

i 

j no operand 

1 

| Enter interpreter 

I 



| RTNS 

1 

j FIXED 
■ 

j no operand 

1 

| Return to Phase II 

i 

scan 


1 ENB 

1 

| FIXED 

i 

i 

J Two- byte 

i 

dictionary references 

1 

| ACTIVATE a 

1 



| DSB 

1 

j FIXED 

i 

1 

J Two- byte 

dictionary references 

1 

(DEACTIVATE A 

1 



1 DCL 

1 

| FIXED 

I 

i 

(Dictionary reference 

i 

1 

| DECLARE A 

1 



| NOPD 

1 

| FIXED 

1 

1 

(Dictionary reference 

1 

i 

(No-ops the DECLARE, 
j executed 

once 



L J -L X J 
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i T T' 

| MNEMONIC | TYPE | 


OPERAND DESCRIPTION 


function 


CVT 6 j FIXED j Dictionary reference 


RETN" 7 | FIXED | Dictionary reference 
X X 


| Convert to RETURNS 
| attribute 

I 

| Return from procedure A 
.x 


*-The ASSIGN operator does not push a result. The expression result is found on 
the PDS and is popped; the dictionary reference for the left hand side is the 
single argument. 

2 0perand conversion for EQU f GT, and LT is as specified in IBM System/ 3 60 
Oper ating System: PL/I Language Specif ications . Form C28-6571. 

3 The TRAF uses and pops the top operand on the stack. It is treated as a bit 
string for conditional transfers. 

4 This handles GOTOs out of included text. At this point CLNUP is performed. The 
arguments are (a) the dictionary entry for the label to which control is to pass; 
and (b) the dictionary entry for the current INCLUDE. 

5 The arguments for the invocation are contained on the stack. The dictionary 
reference is to the procedure entry. 

6 This converts the top of the stack to the attributes specified in the RETURNS 
attribute for the procedure A. 

7 This terminates the invocation of procedure A and converts the value on the top 
of the stack to the attribute specified on the PROCEDURE statement. 
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2. COMMUNICATIONS REGION USE the compile-time processor. The region 

from ZCOMM to ZCOMM+463 is also used by the 
compiler; however, during the compile-time 
The region from offset 0 to offset 304 processor phase, this region is used exclu- 

( ZCOMM) is used as a general communications sively by the compile-time processing. The 

region throughout the compiler, including details of this usage are shown below. 


Dec. 

Name Offset Length Contents 


STATUS ZCOMM 1 Byte 1: Bit 0 not used 

1 PROCSW — processing macro procedure 
Note : 2 FINDBIT — SRHDIC has found dictionary item 

Condition 3 ERSW — diagnostic produced in Phase II 

Settings 4 EFSW — end of file encountered (input) 

"1" = set 5 LEVBIT — processing IVB 

"0" = off 6 INCSW — processing included text 

7 PH2SW — in Phase II 

STA2 ZCOMM+1 1 Byte 2: Bit 0 OLDINC -- processing already listed INCLUDE 

1 SKPSW — indicates entry to END from PRCSCN 

2 NOPERCENTSW — look ahead for % completed 

3 SYSOPN — SYSLIB DCB is open 

7 ARG -- indicates that Phase II is looking for 
arguments of activated procedure 

SUBSTRDR ZCOMM+2 2 Holds dictionary reference of 0 level SUBSTR entry 

TOKPTR ZCOMM+4 4 Address of character being scanned, text reference or 

absolute, right justified 

INCPTR ZCOMM+8 4 Save area for TOKPTR 

INBUF ZCOMM+1 2 4 Absolute address of input buffer, right justified 

OUTBUF ZCOMM+16 4 Absolute address of output buffer, right justified 

PDSPTR ZCOMM+20 4 Absolute address to top of pushdown stack, right justified 

ENDBUF ZCOMM+2 4 4 Absolute address to last significant character in input 

buffer, right justified 

WHERE ZCOMM+2 8 4 Address of next available byte in output buffer, text 

reference or absolute, right justified 

IVBPTR ZCOMM+32 4 Text reference to next free IVB, right justified 

LINCNT ZCOMM+36 4 Holds current line number, right justified 

TEMPTR ZCOMM+40 2 Dictionary reference to top of "in-use" temporary stack 

DCENTY ZCOMM+4 2 2 Dictionary reference for chaining dictionary items 

CURINC ZCOMM+44 2 Dictionary reference to INCLUDE entry being processed 

CURDO ZCOMM+4 6 2 Dictionary reference to DO entry being processed 

PROCNO ZCOMM+48 1 Current procedure number, right justified 

NXTPC ZCOMM+49 1 Next available procedure number, right justified 

DPHcNT ZCQMM+50 2 Current depth count 

CODE ZCOMM+52 1 Code for token type 

LENGTH ZCOMM+54 2 Number of significant characters in TOKBUF, right justified 
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MXDPTH ZCOMM+56 


2 


Integer value of depth of replacement, right justified 
INDEX ZCOMM+58 2 Hash table index for dictionary routines 

ATTR ZCOMM+60 2 "Type" byte for dictionary routines 

GRSAVE ZCOMM+64 4 Save area for GRG 

NEWIVB ZCOMM+68 4 Pointer to IVB chain to be freed or obtained 

VALUE ZCOMM+72 4 Type and value/value pointer for dictionary entries 

PREINB ZCOMM+76 4 Pointer to header information for INBUF 

BUFSRT ZCOMM+80 4 Pointer to left margin in INBUF 

INIVB ZCOMM+84 1 Current busy block number 

OUTIVB ZCOMM+85 1 Current busy block number 

TXTBLK ZCOMM+86 1 Current busy block number 

INVBAB ZCOMM+88 4 Current block used in absolute address calculation 

OUTIVbAB ZCOMM+92 4 Current block used in absolute address calculation 

TXTBLKAB ZCOMM+96 4 Current block used in absolute address calculation 

MTABC ZCOMM+lOO 4 Address of translate table for TOKSCN and FINDPC 

TXTEST ZCOMM+104 4 Length of text block adjusted for chain address 

BUF1 ZCOMM+108 4 Pointer to first INCLUDE buffer 

BUF2 ZCOMM+112 4 Pointer to second INCLUDE buffer 

LIBDCB ZCOMM+116 4 Pointer to DCB for SYSLIB data set 

USRDCB ZCOMM+120 4 Pointer to DCB for user data sets 

MAXLCT ZCOMM+124 4 Maximum line count used so far 

PRCWHR ZCOMM+128 4 Pointer to next byte in which to put procedure text 

DCENTYAB ZCOMM+132 4 Absolute address of dictionary entry 

SCHK ZCOMM+136 4 Pointer to level 1 SUBSTR entry 

PROCCL ZCOMM+140 2 Dictionary reference of procedure check list 

OUTERCL ZCOMM+142 2 Dictionary reference of outer check list 

PrOCCLDR ZCOMM+144 2 Dictionary reference for PROCCL cell 

OUTRCLDR ZCOMM+146 2 Dictionary reference for OUTERCL cell 

DECIDR ZCOMM+148 4 Dictionary reference of dictionary entry for DECIMAL 1 

CURPRC ZCOMM+152 4 Pointer to current procedure entry on PDS 

TOKBUF ZCOMM+164 32 32-byte buffer, characters inserted left justified 

HASTB ZCOMM+300 128 64 two-byte dictionary references to hash chains for named 

items 

CONSCH ZCOMM+428 2 Dictionary reference to constant chain 

SPECCH ZCOMM+430 2 Dictionary reference to special chain — debugging only 
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3. COMPILE- TIME PROCESSOR, OPERATING 
SYSTEM, AND COMPILER CONTROL INTERFACES 


Although the compile-time processor 
makes considerable use of the Operating 
System facilities, it usually does so indi- 
rectly through the compiler control. How- 
ever, those Operating System services 
required to support the INCLUDE facility 
are invoked directly. Since included text 
is required to be a member of a partitioned 
data set, it is those data management 
facilities which support BP AM which are 
used. Specifically the macros OPEN, FIND, 
CLOSE, READ and CHECK are used by various 
parts of the INCLUDE handler. Details of 
these macros can be found in IBM System/360 
O perating System: Control Program Services , 
Form C28-6541. 


The root phase is invoked by the compil- 
er control if the MACRO option is speci- 
fied. All subsequent communication between 
the compile-time phases and the compiler 
control is done by way of cells in the 
communications region. This includes the 
parameters passed to the F service rou- 
tines, the decoded options which are test- 
ed, and the cells set to indicate the 
status of source margins and mode (EBCDIC) 
of the output. 

Specifically, the following cells in the 
communications region are either used or 
set: 

PARI 

PAR2 


ZTV 

ZMYNAM 

MCSIZE 

CCCODE 

TXTSZ 

ZSOR — column number in which to begin 
scan of input text 

ZMAG — column number in which to end 
scan of input text 

ZTRAN1 

The following compiler control routines 
are referenced: 


ZUPL 

RELESE 

ZURD 

RLSCTL 

ZUGC 

ZTXTRF 

ZUTXTC 

ZTXTAB 

ZURC 

ZCHAIN 

ZABORT 

ZALTER 

ZLOADW 

ZDABRF 

ZDICRF 

ZEND 

ZUERR 

ZUBW 

ZDRFAB 
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INDEX 


Note: This index refers to the descriptive to items in Section 3. (For details of the 

sections only; it does not refer directly organization of Section 3, see page 57.) 


Abbreviations used during compilation 
341-349 
Abort 292 
ABS function 44 
ABS marker 336 
ABS' marker 336 
Absolute code 335-336 
format of 

RR instructions 336 
RS instructions 336 
RX instructions 336 
SI instructions 336 
SS instructions 336 
Accumulator register 52 
Address calculation 53 
Address constants 55 
Address conversion 13 
Addressing mechanisms 52 
Adjustable length strings 44 
Aggregates logical phase 39-40 
function 15, 17 
ALLOCATE chain 25, 27 
ALLOCATE statement 52 
analysis 27 
attributes 32 
format after read-in 325 
ALLOCATE triple 

translation to pseudo- code 48 
Allocated item 

dictionary entry 32 
ALLOCATION function 44 
AREA 22 

Arithmetic triples 42 
Arrays 

assignment 37 
adjustable bounds 31 
bounds 

format of second file statement 337 
correspondence defined 40 
expressions 37 
initialization 42 
processing 39 
storage allocation 50 
Assigned registers 53, 335 
Assignment statements 

format after read-in 323 
nested 37 
Assignment triple 

translation to pseudo- code 48 
ATR listing 

(see attribute listing) 

ATR option 14 ? , 34, 292 
Attribute collection area 30, 31 
Attribute list 29 
Attribute listing 
how produced 34 
Attributes 30 
BIT 30 


CHARACTER 

30 


DEFINED 

30 

» 

31 

dimension 

30 


GENERIC 

31 

r 

44 

INITIAL 

30 

# 

31 


INITIAL CALL 30, 31 
LABEL 30 
LIKE 30, 31 
PICTURE 30 
POSITION 30 
precision 30 
SETS 30, 3 3 
USES 30 

association with identifiers 31 
check for invalid 29 
conflicting 31 
default 31 
expressions in 336 
factored 30 
syntax check 27 
test for consistency 28 
AUTOMATIC chain 33, 34, 51 

delimiter dictionary entry format 314 
storage allocation 49, 50 

BALR instruction 53 
Base registers 53 
BCD 

dictionary entry format 312 
to dictionary reference 32 
input 292 
BEGIN block 51 
linkage 52 
BEGIN chain 27 
BEGIN statement 32, 51 

format after read- in 322 
BEGIN triple 

translation to pseudo-code 48 
BEGIN' triple 45 

translation to pseudo-code 48 
BEGIN-END statement analysis 27 
BINARY function 44 
BINARY standard type DED 5€ 

BIT attribute 30 
BIT function 44 
BLDL macro 20, 22, 292 
Block control 19 
Block header chain 29 
BOOL function 43 
BP AM 377 

Branch and link instruction 53 
Branch outside block 33 
BSAM 21 

Build list 20, 22, 292 
Built-in function 

addressing slot 49 
aggregate arguments to 39 
dictionary entry format 3 11 
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name 31 

(see also functions) 

BUY ASSIGN statement 48 
BUY statement 35 , 36, 48, 52 
reordering of 44 
BUY triple 

translation to pseudo- code 48 
BY NAME option 35 

CALL chain 25, 27, 31, 32 
CALL statement 32 
analysis 27 

format after read-in 324 
Card image output 14 
Catalogued procedures 13 
CCCODE 15, 22 

(see also format of) 

CEIL function 44 
Chains 

ALLOCATE 25, 27 
AUTOMATIC 33, 34, 49, 50, 51 
BEGIN 27 
CALL 25, 27, 32 
CALL 25, 27, 31, 32 
constant 4 9 
CONTROLLED 49, 51, 55 
DECLARE 25, 27 
DEFINED 40 
ENTRY 27 
entry type 1 31 

LIKE 31 
PICTURE 33 
PROCEDURE 27 
PROCEDURE-ENTRY-BEGIN 25 
STATIC 55 
storage class 293 
Chameleon temporary 36, 39 
CHAR function 44 
CHAR48 option 21, 292 
CHARACTER attribute 30 
Character translation tables 19 
CHECK list 33 

dictionary entry format 313 
pretranslator scan of 37 
CHECK macro 377 
CLOSE macro 377 
CLOSE statement 46 

format after read-in 326 
Code bytes, dictionary entry 293 
text 327-328, 332-335 
Code produced for prologues and epilogues 
358-362 

Communication between phases 293 
Communications region 15, 19, 23, 352-355 
names of locations 353 
use by compile-time processor 375-377 
Compare action 38 
Compare weght 38 
Comparison triples 43 
Compilation 

entry point to 55 

Compile-time processor logical phase 
23-24, 370-377 

cleanup phase 24 

communications region use 375-377 
compiler control interface 377 
error messages 24 
function 15, 17 


initial scan and translation 24 
instruction codes 377-374 
internal formats of text 370-374 
line numbering 23 

operating system/360, interface with 
377 

output 24 

Compile-time statement 23 
Compiler control 19, 352 

compile-time processor interface 377 
routines 16 
functions 13 
initialization 13 
Compiler functions 28 
ps eudo- code 4 8 
format 335 
Compiler label 

dictionary entry format 309 
numbering 55 

compiler logic, guide to 57-286 
Compiler options 13 
table 22 

Compiler organization 15, 16 
Compiler phases 19-56 
loading 13 

Compiler pseudo-variables 28 
pseudo-code 48 
Completion code, compiler 20 
COMPLEX function 44 
CONDITION condition 33 
CONJG function 44 
Constant chain 49 

Constant, conversion to internal form 48 
Constant marker 32 
Constants pool 49, 55 
Containing block chain 29 
Control code word 15 
(see also format of) 

Control, compiler 

(see compiler control) 

Control flow 16 

Control, passing between phases 15 
CONTROLLED chain 

final assembly scan 55 
storage allocation scan 49 
CONV pseudo- code macro 48 
Correspondence defining 34, 40 
Cross-reference listing 
how produced 34 
CSECTs 54 

Data byte format 305 

Data element descriptor (DED) 33 

Data flow 14 

Data item dictionary entry format 300 
Data list 36 

association with format list 47 
Data sets 13, 14 
Data tr a ns mass ion 47 
Data types, incompatible 36 
DCLCB generation 54 
Debugging 13 
DECIMAL function 44 
DECIMAL standard type DED 50 
DECLARE chain 25, 30 
DECK option 14, 292 
DECLARE chain 27 
DECLARE control block 54 
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DECLARE statement 32 
analysis 27 

format after read-in 325 
DED 33 
DED, DED 2 

dictionary entry formats 314, 315 
Default attributes 31 
DEFINED attribute 30, 31 

format of second file statement 338 
DEFINED chain check 40 
DELAY statement 45 
analysis 27 

format after read-in 325 
DELETE statement 45 
analysis 27 

format after read-in 326 
Diagnostic message control 20 
Diagnostic messages 14, 24, 25, 56, 
363-369 

Dictionary 24, 27, 290, 293 

comunications region 15, 352-355 
contextual scan 32 
Dictionary block 16, 19 
control 19 
size 13, 350 

Dictionary entry 24, 293-316 
for allocated item 32 
code bytes 293-295 
compile-time processor 370 
from constant 310-311 
dope vector descriptor 40 
for entry points 28 
for internal entry point 29 
record description 40 
zone delimiter 51 
OFFSETl Slot 50 
skeleton dope vector 49 
virtual origin slot 50 
(see also format of) 

Dictionary entry chains 29 
Dictionary logical phase 27-35 
function 15, 17 
housekeeping 34 
output 32 

picture processing 33 
second file merge 34 
Dictionary reference 
validity check 33 
DIM function 44 
Dimension attribute 30 
Dimension table 30, 316 
DISPLAY statement 45 
analysis 27 

format after read-in 324 
DO statement 

format after read-in 323 
DO-END statement analysis 27 
DO group expansion 42 
Dope vector 
format 316 

descriptor dictionary entry 40 
extra slots 49 

skeleton, dictionary entry 314 
temporary, dictionary entry 315 
'Dope vector required' bit 34 
DSA 41, 51 

Dummy dictionary reference 31, 33 
DUMP option 21, 292 


Dumping 21 
DVD 

(see dope vector descriptor) 
Dynamic defining 34 
Dynamic dump 22 
Dynamic storage 
allocation 52 
management 358 
Dynamic storage area 41 
Dynamic temporary 49 
Dynamically DEFINED item 49 


EBCDIC 24, 292 

Edit- directed input/output 47 
ELSE clause 45 

END card for compile program 55 
End-of program, logical 25, 26 
End-of-program triple 

translation to pseudo- code 48 
END statement 

compiler-generated 25 
format after read-in 322 
ENTRY chain 27 
ENTRY code byte format 299 
Entry label 25 
Entry point 

dictionary entry format 295 
to compilation 55 
ENTRY statement 32 
analysis 27 
dictionary entry 30 
format after read- in 322 
Entry type 1 28, 29 

chain 31 

dictionary entry 295 
Entry type 2 29 

dictionary entry 297 
Entry type 3 28, 29 

dictionary entry 297 
Entry type 4 28, 29 

dictionary entry 298 
Entry type 5 28 

dictionary entry 299 
Entry type 6 28 

ENVIRONMENT option 54 
Epilogues, code produced for 358-362 
Error chain 24, 56 
Error messages 

(see diagnostic messages) 

Errors 25 

Error editor logical phase 26, 55-56 
function 15, 18 
Error package, library 53 
ESD cards 54 
Event variable 32 
EXIT statement 45 

format after read- in 325 
Expressions 

in attributes 336 

compile-time processor encodement 372 
definition 36 

evaluation (pseudo-code) 42 
External/internal code conversion 25 
EXTERNAL item addressing slot 49 
External library routines 341 
External symbol dictionary 54 
EXTREF option 14, 292 
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F-format records 292 
Factored attributes 30, 31 
Factored attribute table 30 
FED 

(see format element descriptor) 

File 

constant 54 
dictionary entries 310 
variable 32 
Final assembly 54 

Final assembly logical phase 53-55 
function 15, 18 
initial values 55 
FIND macro 377 

First code byte (other 1) format 303 
FIXED function 44 
FIXED standard type DED 50 
FLAG L, FLAGS, FLAGW options 292 
FLOAT function 44 
FLOAT standard type DED 50 
FLOOR function 44 
Flowcharts 57-272 
Formal parameter type 1 
dictionary entry 309 
Format element descriptor 
dictionary entry 315 
Format list 36 

association with data list 47 
Format of 

ALLOCATE statement 325 
array bound second file statement 337 
assignment statement 323 
BEGIN statement 322 
CALL statement 324 
CLOSE statement 326 
control code word — CCCODE 292 
DECLARE statement 325 
DEFINED second file statement 338 
DELAY statement 325 
DELETE statement 326 
dictionary entries 
(see below) 

DISPLAY statement 324 
DO statement 323 
END statement 322 
ENTRY code byte 299 
ENTRY statement 322 
EXIT statement 325 
FORMAT statement 326 
GENERIC entry point 299 
GET statement 326 
GOTO statement 324 

identifier value block (compile-time 
processor) 371 
IF statement 322 

INITIAL label DECLARE statement 325 
INITIAL value second file statement 338 
keyword table 291 
multiplier function second file 
statement 337 
null statement 325 
ON statement 323 
OPEN statement 326 
options code byte 299 
phase directory entry 292 
PROCEDURE statement 3"21 
PUT statement 326 
READ statement 326 


REVERT statement 324 
RETURN statement 325 
REWRITE statement 326 
RR instructions 334, 336 
RS instructions 334, 336 
RX instructions 333, 336 
second file statement 337 
SI instructions 334, 336 
SIGNAL statement 324 
SS instructions 334, 336 
STOP statement 325 
string length second file statement 
text after read-in phase 321-326 
text in absolute code 335 
text in pseudo-code 332-335 
text code byte after read-in phase 
318-321 

triples 329-331 
UNLOCK statement 326 
WAIT statement 324 
WRITE statement 326 
variable information 305, 306 
Format of dictionary entries 293-316 
AUTOMATIC chain delimiter 314 
BCD 312 

built-in function 311 
CHECK list 313 
compile-time processor 370 
compiler label 309 
from constants 310-311 
data item 300 

code bytes for data, label, and 
structure entries 303-305 
DED 314-315 
DED 2 315 


dope vector 316 
dope vector for temporary 315 
dope vector skeleton 314 
entry points 295-299 
code bytes 299 
entry type 1 295-297 

entry type 2 297 

entry type 3 297-298 

SETS list format 298 


entry type 4 298 

entry type 5 299 

FED (format element descriptor) 

FILE 310 

file constant 310 
file environment 310 
file parameters and temporaries 
formal parameter type 1 309 

internal library function 312 
label BCD 315 


315 


310 


label constant 309 
label variable 300 
ON condition 313 
ON statement 312 


parameter description 312 
parameter list 314 
PICTURE 313 

record definition vector 315 
second file 316 
structure item 300 
symbol table 314 

task identifiers and EVENT data 311 
workspace requirement 313-314 
FORMAT statement 


338 
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analysis 27 

format after read-in 326 
Fourth code byte (other 4) 304 

FREE statement 52 
analysis 27 
FREE triple 

translation to pseudo- code 48 
FREE VDA library call 52 
FREEDSA routine 45 
Functions 44 
Function triples 43 

GENERIC attribute 31, 44 
GENERIC entry labels 37 
Generic entry name arguments 44 
GENERIC entry point, format 299 
Generic library routine 39 
Generic procedure 39 
GET statement 46 

format after read-in 326 
GOOD 33 

triple 45 
GOTO statement 33 
analysis 27 

format after read-in 324 
GOTO triple 45 
go-out-of- block 
(see GOOB) 

Hash chain 27,29 
Hash table 27, 29 
Hashing 27, 370 
HBOUND function 44 

IDENT option 47 
Identifier value block 371 
IEMAA 19 
IEMAF 356 

bit identification 357 
IF statement 

format after read-in 322 
IF-THEN-ELSE statement analysis 27 
IF triple 45 
IGN pseudo- code item 48 
IHEMAIN 55 
IMAG function 44 
INCLUDE 377 

dictionary entry 54 
INCLUDE card 

generation 54 
matrix 47, 48 
Included data sets 21, 23 
INITIAL attribute 30, 31 
INITIAL CALL attribute 30, 31 
INITIAL label DECLARE statement 
format after read-in 325 
INITIAL value 

format of second file statement 338 
Initial values, final assembly 55 
Initialization 19 
Initialization table 42 
In-line functions (pseudo-code) 44 
Input/ out put 4 6 
control 19, 20 
edit-directed 47 

interface with operating system 21 
modification 36 
RECORD- oriented 45 


STREAM- oriented 47 
usage table 21 
Input/output statements 

format after read-in 326 
Insertion file 53 

Instruction codes for compile-time 
processor 372-374 
Intermediate file 21 

Internal formats of dictionary entries 
293-316 

(see also format of) 

Internal formats of text 317-349 
compile-time processor 370-374 
(see also format of) 

Internal library function 
dictionary entry 312 
Internal library routines 341 
Invalid character 24 
Invocation count 45 
IRREDUCIBLE 31 
iSUB 30 

defining 37 

Iterative DO statement analysis 27 
IVB 

(see identifier value block) 

JMP triple removal 48 
Job control language 13 
Job termination 20 

KEY option 46 
KEYFROM option 46 
KEYLENGTH option 47 
KEYTO option 46 
Keyword tables 26 

organization 290-291 
(see also format of) 

Keywords, national language 291 

Label 26 
array 33 

with initial label statement 34 
dictionary entry for BCD 315 
dictionary entry for constant 309 
dictionary entry for variable 300 
LABEL attribute 30 
Label table 25 
Labels, multiple 25 
LBOUND function 44 
LENGTH function 44 
Level count 32 
Library 45 

calling sequences 43, 45, 48 
format in pseudo-code 341 
epilogue routine 45 
error package 53 
format director routines 47 
LIKE attribute 30, 31 
LIKE chain 31 
‘Likened' structure 31 
LINE option 47 
Line numbering 23 
LINESIZE option 47 
Link library 13 
Linkage editor 13, 54 
LIST option 14, 55, 292 
Listings 14 

attribute 34 
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306, 307 


cross reference 34 
Load-ahead technique 31 
LOAD option 14, 292 
Loader text cards 55 
Loading of phases 13, 20 
LOCATE statement 45 
analysis 27 
Location counter 

machine instructions 54 
STATIC 50 

Logical end-of-program 25 
Logical phases 

functions 15, 17 

(see also phases (logical) , description) 
LONG standard type DED 50 
* Look-ahead* routine 52, 53 

Machine instructions 55 

MACRO option 21, 23, 292, 377 

MAIN option 55 

MAX function 44 

Message text 56 

Messages, diagnostic 363-369 

MIN function 44 

Mixed overlay defining 40 

MOD function 44 

Modules 


AA 

19, 

21, 56 

AB 

21 


AC 

21 


AE 

21 


AF 

356 


bit identification 

AS 

21 


BX 

21 


CA 

290 


CC 

290 


CE 

290 


CG 

290 


Cl 

20, 

290 

CK 

290 


CN 

290 


CR 

290 


FY 

21 


UA. 

21 


UF 

21 


XB 

21, 

56 

XF 

56 



XG through YF 56 
(see also phases and modules) 
Multiple assignment 43 
Multiple source assignment triples 
translation to pseudo-code 48 
Multiple target assignment triples 
translation to pseudo-code 48 
Multiplier function 

format of second file statement 337 

National language keywords 291 
Nested assignment statements 37 
Nested DO groups 42 
Nested procedures 

object time unnesting 55 
NOCHECK list 33 
Null statement 

format after read-in 325 

Object deck serialization 54 


Object listing 55 
Object program 15 
OFFSET1. and OFFSET2 slots 
uses of 308-309 
ON block 51 
ON CHECK condition 35 
ON condition 33, 50, 51 

dictionary entry format 312, 313 
programmer- named 32 
ON statement 

dictionary entry format 312 
format after read-in 323 
ON triple 45 
OPEN control block 54 
OPEN macro 377 
OPEN statement 46 

format after read-in 326 
Operating system/360 
access methods 21 

compile-time processor, interface with 
377 

control program 13, 16 
job control language 13 
OPT 292 

Optimization 54 
Option list 19 
Options code byte 29 
format 299 

Options, compiler 356-357 
Options listing 19 
Other 1 

(see first code byte) 

Other 2 

(see second code byte) 

Other 4 

(see third code byte) 

Other 4 

(see fourth code byte) 

Output 

compile-time processor 24 
dictionary 32 
read-in phase 25 
Overlay defining 34, 40 

P FORMAT marker 32 
PAGESIZE option 47 

Parameter description dictionary entry 312 
Parameter list dictionary entry 314 
Parameter matching 36 


Phase 


BC 

372 

Cl 

22 

FT 

293 

IA 

42 

JK 

52 

LB 

49 


(see also phases and modules) 
Phase directory 19, 20 
entry format 292 
organization 292 
second half 22 
status byte 13 
Phase loading 

compile-time processor 23 
Phase marking 20, 38, 42 
Phases, communication between 293 
Phases and modules 
description 19-56 
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guide to 287-289 

Phases (logical), description 19-56 
aggregates 39-40 
compile-time processor 23-24 
dictionary 27-35 
error editor 55-56 
final assembly 53-55 
pretranslator 35-38 
pseudo- code 40-49 
read-in 24-27 
register allocation 52-53 
storage allocation 49-52 
translator 38-39 
Physical registers 41 
allocation 53 
FICTURE 

chain 33 

dictionary entry 29, 32 
format 313 
table 30 

reorganization 34 
Polish, postfix 372 
POSITION attribute 30 
Postfix Polish 372 
Precision attribute 30 
PRECISION function 44 
Pretranslator logical phase 35-38 
function 15, 17 
PROCEDURE 
block 51 
chain 27 
statement 29, 32 

format after read-in 321 
triple 

translation to pseudo- code 48 
PROCEDURE-END statement analysis 27 
PROCEDURE-ENTRY-BEGIN chain 25 
PROCEDURE- ENTRY chain 29-30 
Procedure invocation 44 
Procedure size 54 
PROCEDURE' triple 45 

translation to pseudo- code 48 
Program check handling 20 
Prologues 53 

code produced for 358-362 
construction 28-51 
PRV 45 

Pseudo-assignment statement 26 
Pseudo-code 

description 40 
design 40, 332 
format of 

RR instructions 334 
RS instructions 334 
RX instructions 333 
SI instructions 334 
SS instructions 334 
text 332-335 

library calling sequences 341 
skeletons 47 
supplementary items 41 
temporary result descriptors (TMPDs) 
339-341 

Pseudo-code logical phase 40-49 
branches 45 

compiler functions and pseudo-variables 
48 

expression evaluation 42 


function of 15, 17 
in-line functions 44 
RECORD I/O 45 
STREAM I/O 47 
string utilities 43 
subscripts 45 
utilities 41 

Pseudo-register vector 45 
Pseudo- variable 

syntax check 37 
triples 43 
PUT statement 46 

format after read- in 326 

Qualified subscripted name 32 
QSAM 21 

R format item 47 
RDV 

(see record definition vector) 

Read- in logical phase 24-27, 290 
function 15, 17 
output string 25, 26 
arrangement 26 
storage map 26 
structure 26 
READ macro 377 
READ statement 45 
analysis 27 

format after read-in 326 
REAL function 44 
Record definition vector 46 
dictionary entry 315 
Record decription dictionary entries 40 
Record descriptor vector 46 
RECORD-oriented input/output 45 
Records on input 
F- format 292 
U- format 292 
REDUCIBLE 31 

Register allocation logical phase 52-53 
function 15, 18 
Registers 

pseudo- code description 41 
RELESE 352 

Relocation dictionary cards 55 
Remote format item 47 
REQEST 352 
REQ UE S T_CODE S 46 
Resident tables 290-292 
RETURN (express ion) 28 
RETURN statement 
analysis 27 

format after read-in 325 
RETURN triple 45 
REVERT statement 33 

format after read-in 324 
REVERT triple 45 
REWRITE statement 45 
analysis 27 

format after read-in 326 
RLD cards 55 
RLSCTL 352 
RLSCTLX 352 
ROUND function 44 
Routine directories 57-286 
RR instruction format 
absolute code 336 
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pseudo- code 334 
RS instruction format 
absolute code 336 
pseudo- code 334 
RX instruction format 
absolute code 336 
pseudo- code 333 

Scalar assignment 37 
Scalar overlay defining 40 
Scratch storage 19 

Second code byte (other 2) format 303 
Second end-of-program marker 38 
Second file 33, 34 

dictionary entry 316 
statement 29, 30, 49, 51, 336 
Second half phase directory 22 
Second offset slot 306, 307 
uses of 308-309 
SELL statement 35, 37, 48 
reordering of 44 
SELL triple 

translation to pseudo- code 48 
SETS attribute 30, 33 
SETS list format 298 
Severity code 292 
SHORT standard type DED 50 
SI instruction format 
absolute code 336 
pseudo- code 334 
SIGNAL statement 33 

format after read-in 324 
SIGNAL triple 45 
SIGNAL CHECK statement 37 
SIGN function 44 
SIZE option 20, 21 

Skeleton dope vector dictionary entry 49 

SKIP option 47 

SOURCE option 14, 27, 292 

SOURCE 2 option 14 

Source program listing 27 

Special assignment triple 

translation to pseudo- code 48 
Spill file 351 
Spill point 13, 351 
Spill storage 16 
SS instruction format 
absolute code 336 
pseudo- code 334 
Stack action 38 
Stack weight 38 
Standard type DED 50 
Statement 

anlysis 27 
identifier 26 
label 25 

dictionary entry 30 
label, translation to pseudo- code 48 
number 25, 32 

translation to pseudo- code 48 
type identification 26 
within statements 35 
Statements 

ALLOCATE 52, 325 
assignment 323 
BEGIN 51, 322 
BUY 48, 52 
BUY ASSIGN 48 


CALL 324 
CLOSE 46, 326 
DECLARE 325 
DELAY 45, 325 
DELETE 45, 326 
DISPLAY 45, 324 
DO 323 
END 322 
ENTRY '322 
EXIT 325 
FORMAT 326 
GET 46, 326 
GOTO 324 
IF 322 

INITIAL label DECLARE 325 

LOCATE 45 

null 325 

ON 323 

OPEN 46, 326 

PROCEDURE 51, 321 

PUT 46, 326 

READ 45, 326 

RETURN 325 

REVERT 324 

REWRITE 45, 326 

SELL 48 

SIGNAL 324 

STOP 325 

UNLOCK 45, 326 

WAIT 324 

WRITE 45, 326 

(see also individual items, and format 
of) 

Static 

defining 34 

external variable CSECT 55 
internal CSECT 49, 55 
storage allocation 49 
Status byte 13 
Step table 53 
Sterling constants 34 
STMT option 53 
STOP statement 45 

format after read- in 325 
Storage allocation logical phase 15, 17, 
49-52 

arrays 51 

AUTOMATIC chain 50-51 

controlled variable address 51 

DEDs 49, 50 

DEFINED items 51 

dynamic 52 

entry label BCD 49 

entry type 1 parameters 51 

INITIAL arrays 50 

label constant BCD 49 

RDVs 4 9 

SAVE/RESTORE entries 49 
simple variables 49 
STATIC 49 

STATIC INTERNAL arrays and structures 50 
strings 51 
structures 51 
symbol tables 50 
temporary type 2 address 51 
variables 51 
Storage class chains 293 
Storage dumping 21 
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Storage requirements 13;, 20, 350-351 
STREAM- oriented input/output 47 
String 

dope vector description 43 
length 31 

format of second file statement 338 
triples 43 

utilities (pseudo- code) 43 
STRING function 44 
Structure 

assignment 37 
•inherited' dimensions 34 
item dictionary entry 300 
level number 30, 31 
storage allocation 50 
Structure processor phase 39 
Subscripted qualified name 32 
Subscripts 

pseudo- code 45 
too many in list 37 
triples 43 

Symbolic accumulator register 40 
Symbolic register 41, 52, 53 
counter 41 
SYSIN 14, 19, 20, 21 
SYSLIB 21 

Symbol table dictionary entry format 314 

SYS LIN 14, 20, 21 

SYSPRINT 14, 19, 20, 21 

SYSPUNCH 14, 20, 21 

System generation 356-357 

System residence 16 

SYSUT1 14, 19, 21, 351 

SYSUT3 14, 19, 21 

Task identifier and EVENT data 
dictionary entries 311 
Temporary description stack 339 
Temporary result descriptor 339-341 
format 339 
triple 41 

Temporary storage 35 

Temporary variable 35, 36 

Termination of compilation 20 

Terms used during compilation 3 41-349 

TESTRAN 21 

Text 

block 15, 16, 19 
control 19 
marker 24 
size 13, 350 
code byte 

format after read- in 318-321 
on entry to translator phases 327-328 
in pseudo- code 322 
formats 317-349 

after read-in phase 321-326 
compile-time processor 370 
absolute code 335-336 
skipping 26 
string 

at start of compilation 15 
after translation 38 
supplementary items 35 
terms and abbreviations during 
compilation 341-349 
Third code byte (other 3) 304 

TITLE option 47 


TMPD 339-341 
format 339 
triples 43 

(see also temporary result descriptor) 
Track over flow 292 
Transfer vectors 19, 352 
Translate table 25 
triples 42 
Translation stack 38 
Translator logical phase 38-39 
function 15, 17 
generic phase 39 
stacker phase 38 
Triples 17, 38 

conversion to pseudo- code 40 
format 329-331 
translate table 42 
TRUNC function 44 
TXT cards 55 

U-format records 292 
Umbrella symbol 35 
Undimensioned structure 
overlay defining 40 
UNLOCK statement 45 
analysis 27 

format after read-in 326 
UNSPEC function 44 
USES attribute 30 

Variable byte format 305 

Variable data area 44, 51 

Variable information, format of 305-306 

Variable initialization 42 

Variable length item 334 

Variable storage accumulator 52 

VARYING attribute 40 

VDA 

(see variable data area) 

Virtual origin 36, 316 
slot 50 

WAIT statement 
analysis 27 

format after read-in 324 
Workspace requirement dictionary entry 313 
Workspace supervision 13 
WRITE statement 45 
analysis 27 

format after read-in 326 
XREF listing 

(see cross-reference listing) 

XREF option 14, 34, 292 

Z ABORT 352 
ZALTER 352 
ZCHAIN 352 
ZDICAB 352 
ZDICRF 352 
ZDABRF 352 
ZDRFAB 352 
ZEND 352 
ZLOADW 352 
ZLOADX 352 
ZNALDB 352 
ZNALRF 352 

Zone delimiter dictionary entry (AUTOMATIC 
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chain) 51 
ZTXTAB 352 
ZTXTRF 352 
ZUBW 352 
ZUERR 352 
ZUGC 352 


ZULF 352 
ZUPL 352 
ZUSP 352 
ZURC 352 
ZURD 352 
ZUTXTC 352 
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